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IDENTIFICATION 


PRODUCT CODE:  AC=S069B=MC 

PRODUCT NAME: " CZRMUBO RMOS/3/2 PERFORMANCE EXERCISER 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE ag SHOULD NOT BE CONSTRUED AS A MO tay So yl BY DIGITAL 


ORPORAT ION. 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 


LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE RMO5/3/2 Sg 4g oy B EXERCISER PROGRAM IS ey? TO PERFORM 
AN INTERACTIVE TEST ON RM DISK DRIVES CONNECTED TO A MASSBUS 
SUBSYSTEM. THE DRIVES MAY BE CONTROLLED BY AN RH70 CONTROLLER. 

IN ADDITION [O PERFORMING AN INTERACTIVE TEST OF THE DISK DRIVES 
ON THE SUBSYSTEM, THE PROGRAM IS INTENDED TO BF USED TO VERIFY 
THAT THE DRIVES UNDER TEST AR® FERFORMING TO THEIR DATA ERROR 
RATE AND SEEK ERROR RATE (SEE ERROR RATE SPECIFICATIONS). 


THE PERFORMANCE EXERCISER PROGRAM WILL EXERCISE ORIVES CONNECTED 
AS EITHER SINGLE OR DUAL PORT UNITS. DUAL PORT DRIVES ARE TESTED 
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 
Say’ wate WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE 


TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE MULTI-DRIVE 

CONF IGURATIONS ARE OVERLAPPED (OTHER DRIVES ARE PERFORMING SEEK/SEARCH 
OPERATIONS WHILE ONE DRIVE IS PERFORMING A DATA TRANSFER). OPERATIONS 
AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA TRANSFER 
RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. 


THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF 

DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
THAT DRIVE IS AUTOMATICALLY DEASSIGNED. (THE OPERATOR MAY OVERRIDE 
THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM REPORTS PERFORMANCE 
STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 


ALL DATA TRANSFER COMMANDS EXCEPT WRITE HEADER & DATA AND WRITE CHECK 
HEADER & DATA ARE USED. RECALIBRATE AND READ-IN PRESET COMMANDS ARE 
USED AT STARTUP AND DRIVE INITIALIZATION. RECALIBRATE, OFFSET. AND 
RETURN-TO-CENTERLINE COMMANDS ARE USED DURING ERROR RECOVERY. 


THE DATA TRANSFER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK COMMANDS ARE USED TO VERIFY 
A PREVIOUS WRITE OPERATION. THUS, WHEN A WRITE COMMAND IS SELECTED. 
i: DATA WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 


Mtg ga “ey WHETHER THE PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC 
MODE OR APT DUMP MODE WILL DETERMINE WHETHER; PROGRAM/OPERATOR 
COMMUNICATIONS ARE THROUGH THE KEYBOARD. DYNAMIC PROGRAM OPTIONS 
ARE SELECTED VIA SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED 
ON THE CONSOLE TERMINAL. 


GENERAL DOCUMENT NOTES 


A. IN REFERENCE TO “ NUMBERS IN THIS ge rite TO INDICATE THE 
BASE OF A NUMBER LARGER THAN SEVEN. A PERIOD(.) WILL FOLLOW THE 
NUMBER TO INDICATE DECIMAL OR NO PERIOD WILi FOLLOW THE NUMBER 
TO INDICATE OCTAL. IF THE NUMBER OCCURS AT THE END OF A SENTENCE, 
A DOUBLE PERIOD(. .) INDICATES DECIMAL AND A SINGLE PERIODC .) 
ike OCTAL. ALSO, ANY REFERENCES TO TIME ARE ALWAYS IN 

L. 
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REQUIREMENTS 


EQUIPMENT 

PDP=11 aay ESSOR 

20K MEMO 

KW17=L OR ew =P CLOCK 
Teeitttaa LOALING DEVICE 


TERMINAL 
RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMO5'S, RMO3°S OR RMO2’S) 


MEDIA 

THE PERFORMANCE EXERCISER PROGRAM REQUIRES Bo ah DISK 
PACKS GENERATED BY THE RMO5/3/2_FORMATTER PROGRAM (CZRML). 
THE PACKS MUST BE FORMATTED IN a SECTOR (16 BIT) MODE; THE 
ALTERNATE (30. SECTOR - 18 BIT ) MODE IS NOT SUPPORTTED. 
PRELIMINARY PROGRAMS 

RMO5/3/2 DISKLESS TESTS, PART 1 & 2 


RMO5/3/2 FUNCTIONAL TESTS, PART 1, 2 & 3 


OPERATING PROCEDURE 


LOADING THE PROGRAM 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 


.PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 
.XXDP MEDIA, USING ANY XXDP DEVICE 


STARTING ADDRESSES 
200 = START ADDRESS, ALL SWITCHES CLEAR (SEE SECTION 3.4) 
WHEN THE PROGRAM IS STARTED, A DATA PATTERN WILL BE WRITIEN TO 
ALL ON-LINE DRIVES IN A SEQUENTIAL SEEK MODE. UPON COMP ETION OF 
THE WRITE, THE PROGRAM GOES INTO A TESTING MODE. 
204 - vas aay ADDRESS, THE RESTART ADDRESS PROVIDES THE OPERATOR WITH 
THE glam TO CHANGE THE DEFAULT RM/RH ADDRESSES ie ee. SECTION 


4.1.2), ANY PROGRAM PARAMETERS (SEE SECTION 4.1) 
DRIVE LIMIT PARAMETERS (SEE SECTION 4.2). 


PROGRAM CONTROL 
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PROVIDED THE PROGRAM HAS BEEN LOADED AND STARTED VIA THE APT DUMP 
MODE OR THE a aes at IS RUNNING IN STAND ALONE PROCESSOR/DRI VE 

OPERATIONS ARE INITIATED AND CONTROLLED BY KEYBOARD COMMANDS AND 

SWITCH REGISTER SWITCH SETTINGS. 


HOWEVER, IF THE PROGRAM IS LOADED VIA APT SCRIPT MODE ALL SETUP 


AND SWITCH REGISTER SETTINGS WILL BE PROVIDED THROUGH THE APT E TABLE. 


TYPEOUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 
Ags am WHETHER OR NOT THE APPROPRIATE BIT IN THE E TABLE 


SWITCH OPTIONS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR THE PROGRAM 
WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS NOT PRESENT 

AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE ‘SOFTWARE’ SWITCH 
REGISTER IS LOCATED AT LOCATION 176 . THE SETTINGS OF THE ‘SOFTWARE’ 
SWITCHES ARE CONTROLLED THROUGH A KEYBOARD ROUTINE WHICH 1S CALLED 
BY TYPING A ‘CONTROL G*. THE PROGRAM WILL RECOGNIZE THE ‘CONTROL G° 
AT ANY TIME EXCEPT WHEN THE PROGRAM IS IN KEYBOARD ENTRY MODE, OR 

IS AT A HIGHER PRIORITY PROCESSING AN DRIVE INTERRUPT. THE *SOF TWARE’ 
SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 10 ‘HE 
PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =" 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTiR 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED. ‘RUBOUT* 
a cn cuties U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS DURING 


ON PROCESSORS WITH HARDWARE SWITCH ae taas af THE “SOF TWARE’ SwWITCri 
REGISTER MAY BE USED, THE PROGRAM FINDS ALL 1°S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SW<15>=1 HALT ON ERROR 

SW<14> NOT USED 

SW<13>=1 INHIBIT ERROR TYPEOUT 

SW<12> NOT USED 

SW<11> NOT USED 

SW<10>=1 BELL ON ERROR 

SW<09> NOT USED 

SW<08>=1 INHIBIT END OF PASS MESSAGES 

SW<07>=1 DISPLAY ALL DATA COMPARE ERRORS 

SW<06>=1 DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

SW<05>=1 PARTIAL REGISTER DISPLAY IF ERROR: DO NOT DISPLAY 
ECC CORRECTION RESULTS 

SW<04>=1 INHIBIT MAXIMUM ERROR COUNT CHECK; DO NOT DEASSIGN 
DRIVES WHEN END OF TEST IS REACHED 

SW<035>=1 DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 
IF "DCK', ‘DTE*, OR ‘WCF* ERRORS OR AFTER THE 28TH 
RETRY IF “UNCORRECTABLE 'DCK' ERROR 
i "gh an ERRORS & Sw<07> SET, DISPLAY RES7 

SW<02>=1 INHIBIT SUBSYSTEM STATUS TYPEGUT DURING STARTUP 


INHIBIT PERFORMANCE REPORT AFTER SPECIFIED TIME 


ee em ee ee a —— 
- _ —- LF PLR ee OO em Se Oe ~ - 
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Sw<01>=1 INHIBIT DATA COMPARE AFTER READ COMMAND, w/0 ERROK 
Sw<00>=1 “"READ ONLY’' MODE 
| Sw<00> 


WHEN THE SWITCH IS SET(1), THE PROGRAM WILL OPERATE IN “READ 
ONLY'' MODE. IF THE SWITCH 1S CLEARED(O), THE PROGRAM WILL RETURN 
TO. READ/WRI TE MODE DURING TESTING. THIS SWITCH ONLY EFFECTS THE 
TESTING PORTION OF THE PROGRAM. 


FOR EXAMPLE, IF THE PROGRAM IS STARTED AT ADDRESS 200 . A DATA 
PATTERN WILL BE WRITTEN TO ALL ON-LINE DRIVES IN A SEQUENTIAL 
bs SEEK MODE. age ot Nill OF THE WRITE, .THE PROGRAM GOES INTC A 


re mgt omg yay 
00 0000 00 CO SY NW NN oi~= 
PW 2ODWNOAR un 


88 ; 

189 SEQUENTIAL WRITE IS COMPLETED. UPON COMPLETION OF THE SEQUENTIAL 
>. WRITE, THE PROGRAM WILL SWITCH TO A ‘READ ONLY’’ TESTING MODE 
191 UNTIL SWO 1S RESET TO ZERO BY THE OPERATOR. 


194 3.2 PASS/TEST TERMINATION 


196 A PASS IN RANDOM ‘T* COMMAND MODE OR SEQUENTIAL *T* COMMAND MODE IS 
197 DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS 
198 OR SEEKS REQUIRED FOR A_ PASS IS DERIVED FROM EITHER THE SOFT ERROR 
199 RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 


201 THE SOFT ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 st 
202 ERROR (NON-DISK RELATED) IN 1 X 10°10 BITS READ. (SEE SECTION 3.5.1 
203 FOR THE 90% CONFIDENCE LEVEL) 


204 
205 THE SEEK ERROR SPECIFICATION FOR THE RM DRIVE IS NO MORE THAN 1 SEEK 
OP o> Fe 1 X 10*6 SEEKS. (SEE SECTION 3.5.1 FOR THE 90% CONFIDENCE 


209 PASS IN ‘W* OR 'R* COMMAND MODE IS DETERMINED BY THE MAXIMUM 
210 DIS ADDRESS LIMITS SETUP BY THE OPERATOR. 


3.5.1 PASS TERMINATION 


END OF PASS FOR A SINGLE DRIVE IN THE RANDOM ‘T* COMMAND MODE OR 
atas * tenet *T" COMMAND MODE, IS DETERMINED BY ONE OF THE FOLLOWING 


A. IF PARAMETER ‘ENDING’ IS 1, END OF PASS OCCURS WHEN THE DRIVE 
HAS READ 3X 10*9 BITS (1.875 X 10*8 WORDS). IT WILL TAKE 
APPROXIMATELY 3.33 PASSES TO REACH THE SOFT ERROR RATE OF 

221 1 x 10°40 BITS (6.25 X 10*8 WORDS) READ. HOWEVER, IT WILL TAKE 

222 10. PASSES TO REACH THE 90% CONFIDENCE LEVEL OF 3 X 10°10 BITS 

223 (1.875 X 10*9 WORDS) READ. 


225 B. IF PARAMETER ‘ENDING’ IS 0, END OF PASS OCCURS WHEN THE DRIVE 
226 HAS PERFORMED 1X 10°6 SEEKS. IT WILL TAKE 1 PASS TO REACH 
227 THE SEEK ERROR RATE OF 1 X 10*6 SEEKS. HOWEVER, IT WILL TAKE 
228 3 PASSES TO REACH THE 90% CONFIDENCE LEVEL OF 3 X 10*6 SEEKS. 
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3.6 


3.6.1 


3.6.2 


Jat 


3.8 


SEQ 000& 


END OF PASS FOR A_ SINGLE DRIVE IN ‘WwW’ OR ‘R* COMMAND MODE, IS 
DETERMINED AS FOLLOWS. 


A. WHEN A SEQUENTIAL SEEK IS MADE BEYOND THE MAXIMUM DISK ADDRESS 


LIMITS SET BY THE OPERATOR, THE PASS IS CONSIDERED ENDED. 
TEST TERMINATION 
IF SWO4 IS CLEAR, THE TEST FOR A DRIVE IS TERMINATED WHEN: 


THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 
PARAMETER ‘PASSES'. 

THE TOTAL ERRORS ACCUMULATED EXCEED 25. . 

A FATAL ERROR OCCURS: EM12 OR EM14. 

OPERATOR DEASSIGNS THE DRIVE 

THE NUMBER OF PASSES SPECIFIED BY THE MONITOR HAVE BEEN 
REACHED, WHEN RUNNING IN "XXDP° CHAIN MODE, °ACT11° CHAIN 
MODE OR ‘APT’ SCRIPT MODECANY AUTO MODE). 


mMoow >} 


RUN TIME 

THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. (SEE SECTION 3.5.1) 

THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON THE OPERATION 

MODE SELECTED THE AREAD/WRITE RATIO PARAMETER ("RATIO"), poe BY 

SWR SWITCHES 0, 2. 

DATA TRANSFER MODE (DEFAULT) 

1 DRIVE - APPROX. 1 HR. 45 MIN. (TO REACH 3 X 10*9 BITS OR 1.875 x 10*8 WORDS) 


WITH SW<O0> =1 AND SwW<01> =1, THE PROGRAM WILL RUN APPROX. 20% FASTER 


SEEK VERIFICATION MODE 


PARAMETER 'WRDCNT® = 256. (1 SECTOR) 
PARAMETER *MAXTRK* = ‘MINTRK* (SAME VALUES) 
PARAMETER “MAXSEC* = "MINSEC* (SAME VALUES) 
SWw<01> =1 (NO DATA COMPARE) 

SW<00> =1 (READ ONLY MODE) 


1 DRIVE - APPROX. 4.0 HRS (TO REACH 1 X 10*6 SEEKS? 


oO 


DUAL PORT OPERATION 
A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 


B. SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO ‘A/B* ON EACH DRIVE 
WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 


C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 


XXDP, ACT11, APT11 COMPATIBILITY 
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SEQ 0009 


THIS PROGRAM IS COMPATIBLE WITH ACT11 AND APT11 IN BOTH DUMP AND 
AUTOMATIC MODES. 


THIS PROGRAM IS ALSO, COMPATIBLE WITH XXDP IN DUMP AND CHAIN MODES, 
AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE THE RMOS/3/2 IS THE 
XXDP LOADING DEVICE. 

AUTOMATIC MODE OR CHAIN MODE (MONITOR) 


1. THE BUS ADDRESS AND CONTROLLER INTERRUPT VECTOR ARE DEFAULTED TO 
176700 AND 254 RESPECTIVELY. 


DUMP MODE (NO MONITOR) 
1, INPUT DIALOGUE PROMPTED AFTER PROGRAM STARTS 
APT ETABLE DEFINITIONS 


THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT ENVIRONMENTAL 
TABLE (ETABLE) ENTRIES, VIA RUNNING THE APT UTILITY PROGRAM °‘TSP"’: 


1. SOFTWARE ENVIRONMENT: 


= 1 IF APT SCRIPT MODE 
= 0 IF STANDLONE MODE 


2. ENVIRONMENT MODE: 


BIT 7 = 1 ETABLE DOES SIZING 
= Q PROGRAM DOES SIZING 

‘BIT 6 = 1 a MESSAGES TO APT IF SCRIPT MODE 
= 0 DON'T SPOOL TO APT 

BIT 5 = 1 SUPPRESS TTY CONSOLE OUTPUT 
= 0 ALLOW TTY CONSOLE OUTPUT 


BIT 4 TO BIT O ARE NOT USED 
3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 
IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET TO 1, 
THE SOFTWARE SWITCH REGISTER WILL BE USED, INSTEAD 
OF THE HARDWARE TTY CONSOLE SWITCH REGISTER. 
4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 
5. CPU OPTIONS 
NOT USED 
6. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 


INTERRUPT VECTOR 1: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 254 


7 3 
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SEQUENCE, THE PROGRAM WILL RETURN TO THE BEGINNING OF THE GROUP 
SEQUENCE BEING ENTERED. 


PARAMETERS 


WHEN THE PROGRAM IS STARTED, THE OPERATOR WILL BE ASKED TO ENTER 
PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


| SEQ 0010 
! 343 8. BUS PRIORITY 1: 
| 34 NOT USED. 
: 346 9. INTERRUPT VECTOR 2: 
| 347 NOT USED 
| 349 10. BUS PRIORITY 2: 
320 NOT USED 
| 352 11. BASE ADDRESS: 
| 395 USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 176700 
») 
355 12. DEVICE MAP: 
396 NOT USED 
358 13. CONTROLLER DESCRIPTOR WORDS: 
399 NOT USED 
361 14. CONTROLLER DESCRIPTOR WORDS: 
362 NOT USED 
363 
364 
365 
i 
368 4. CONTROLLING THE PROGRAM 
ie ee 
371 THE FOLLOWING KEYBOARD CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
372 ROUTINES IN THE PROGRAM: 
374 A. TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
375 "RUBOUT'. TYPING A RUBOUT WILL DELETE SUCESSIVE CHARACTERS 
376 FROM THE INPUT. 
578 B. TO DELETE AN ENTIRE LINE, TYPE A "CONTROL U' (“U). 
380 C. AN ENTRY MUST BE TERMINATED BY EITHER A ‘CARRIAGE RETURN® OR 
381 A ‘PERIOD’. THE ‘PERIOD’ TERMINATION IS RECOGNIZED BY THE 
38: PROGRA AS A DEFAULT ENTRY REQUEST. WHEN A LINE IS TERMINATED 
383 BY A 'PERIOD’ INSTEAD OF A ‘CARRIAGE RETURN’, THE PROGRAM WILL 
384 ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO THE PRELOADED VALUES 
389 FOR ANY REMAINING ENTRIES. 
387 D. IF A ‘CONTROL C* IS TYPED DURING | DRIVE TESTING MODE, THE PROGRAM 
388 WILL ENTER THE COMMAND MODE. IF A “CONTROL C* IS TYPED DURING 
389 "ENTER COMMAND’ SEQUENCE, WITH NO DRIVES ASSIGNED, THE 
390 WILL BE RESTARTED AT LOCATION 204 . OTHERWISE, THE PROGRAM WILL 
391 RETURN TO ‘ENTER COMMAND’ PROMPT AND WAIT FOR A CORRECT SEQUENCE 
338 OF CHARACTERS. IF "CONTROL C' IS TYPED DURING ANY OTHER ENTRY 
394 
395 
396 4.1 
397 
398 
399 
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"CHANGE PARAMETERS (L) N ?° 


IF THE ENTRY IS A ‘N* FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY PARAMETERS TO CHANGED 
AND WILL CONTINUE. 

IF THE ENTRY IS A ‘Y* FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL 

BE ALLOWED TO CHANGE THE PROGRAM PARAMETERS. 


THE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME GIVEN BELOW, 
DISPLAY THE CURRENT VALUE OF THE PARAMETER AND WAIT FOR THE ENTRY. THE 
PROGRAM WILL TYPE ‘INVALID ENTRY’ IF THE ENTRY IS NOT CORRECT AND WAIT 
FOR A CORRECT ENTRY TO BE TYPED. (SEE SECTION 4.1.1) 
IF THIS IS THE PROGRAM'S FIRST START, THE STATUS OF THE DRIVES ON THE 
SELECTED MASSBUS SUBSYSTEM WILL BE PRINTED. ON ALL SUBSEQUENT STARTS, 
THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<O2> =1. 
THE FOLLOWING IS AN EXAMPLE UNIT STATUS PRINTOUT: 

"UNIT STATUS: 

NE 


RMO5 
LOAD DEVICE 


NOT PRESENT 
NOT PRESENT’ 


THE ABOVE UNIT STATUS SHOWS THAT DRIVE O WILL BE TESTED, WHILE DRIVES 
1 =- 7 WILL NOT BE TESTED. 


NOUS WN "© 
ZSS259 

—4 
— 

D 

m 

4) 

m 

z 

=_4 


KEYBOARD ENTRY PARAMETERS 
DEFAULT VALUE 





NAME BASE VALUE RANGE FUNCTION 
WRDCNT 10. 8192. ° - 8192. | CONTROLS THE MAXIMUM WORD 
(SEE NOTE) COUNT USED FOR DATA TRANSFERS 


NOTE: THE PROGRAM wWILi SELECT 

‘\ MAXIMUM WORD COUNT, WHICH 

{S DETERMINED BY THE MEMORY 

AVAILABLE. THE MAX. WORD COUNT 
PROGRAM 


HE 
OPERATOR MAY SPECIFIY ANY 
OTHER MAX. WORD COUNT AS LONG 
AS THE VALUE SPECIFIED IS AT 


THAN 8192. WORDS OR MEMORY 
a ‘le AVAILABLE. (WHICH EVER VALUE 
IS SMALLER) 
INTRVL = '10.~ 0 QO = 32767. DETERMINES THE INTERVAL (IN 


SEQ 0011 
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| 
| SEQ 0012 
| ake : MINUTES) BETWEEN AUTOMATIC 
| 289 PERFORMANCE SUMMARY TYPEOUTS; 
| £60 NO TYPEOUT IF THIS PARAMETER 
| 461 IS 0 OR IF Sw<O2> =1 
| 462 PASSES 10. 1 1 = 32767. NUMBER OF PASSES TC END OF 
tek TEST. (THIS PARAMETER IS NOT 
265 USED WHEN THE PROGRAM IS 
£66 | OPERATING IN AUTO RUN MODE) 
pre PATTERN 10. 0 0- 15. IF PARAMETER=0,DATA PATTERN 
469 1S RANDOMLY SELECTED. 
270 IF PARAMETER>O, SPECIFIES 
471 ONE OF THE 15. : 
272 THE SELECTED DATA PATTERN 
£73 IS POINTED BY THE P 
L7, ; , PATTERN’. (SEE SECTION 5 4) 
475 RANDWC & 000000 0 OR 1 IF PARAMETER = 0, THE WORD 
477 . | COUNT IS RANDOMLY SELECTED 
478 | 3 BETWEEN 6 AND THE VALUE 
£79 . WRDCNT*. 
480 IF PARAMETER = 1, THE WORD 
rt COUNT WILL BE THE VALUE 
482 : WRDCNT 
485 | RATIO 8 000002 0-7 CONTROLS THE APPROXIMATE 
485 RATIO OF READ TO WRITE 
LR6 | COMMANDS . 
487 VALUE —R/ 
488 W RATIO 
290 1 7/1 
491 2 6/2 
493 4 4/4 
294, 5 3/5 
1.96 3 7 1/7 
pid END ING 8 000001 0 OR 1 IF PARAMETER = 1, END OF PASS 
499 | DETERMINED BY THE "WORDS READ" 
a IF PARAMETER = 0, END OF PASS 
502 IS DETERMINED BY THE NUMBER 
503 | OF SEEKS. 
a WRT CHK 8 000001 0 OR 1 IF EQ 1, DO AN APPROPRIATE 
305 WRITE CHECK AFTER EACH WRITE 
507 . COMMAND. IF EQ 0, SELECT WRITE 
208 | | : CHECK COMMAND RANDOMLY . 
509 MESSAGE 8 000001 0 OR 1 IF PARAMETER =1, DO NOT PRINT 


ery ERROR MESSAGES FOR DATA ERRORS 

249 OCCURING AT LOCATIONS DEF INED 

24% , BY THE OPERATOR AS BAD PACK 
LOCATION. 


| 
| 
| 
| 
| 
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”  , 


‘2 


IF PARAMETER = 0, PRINT ERROR 
MESSAGES ASSOCIATED WITH BAD 
PACK LOCATIONS. 


RANDOM 8 000000 0 OR 1 IF PARAMETER=0 ,RANDOM 
DATA gs ADDRESS IS 
USED IN ‘T* C 
IF PARAMETERS]. SEQUENT IAL 
DATA BI.OCK IS USED IN 
"T’ COMMAND 


BADBLK 8 000000 0 OR 1 IF EQ TO 1, THE BAD SECTOR 
ENTRY TABLE WILL ALWAYS BE 
hy rie WHEN ASSIGNING 


V 
IF EQ TO 0, THE BAD SECTOR 
ENTRY TABLE WILL ONLY BE 
INITIALIZED IF THE PACK SERIAL 
NUMBER HAS CHANGED SINCE THE 
LAST TIME IT WAS READ. 


NOTE: IF THE SERIAL NUMBER 
HAS CHANGED, THIS MOST LIKELY 
MEANS THAT THE PACK OR DRIVE 
HAD BEEN REPLACED WHILE THE 
DRIVE WAS DEASSIGNED. 


CHANGE DEVICE ADDRESS 

THE RM/RH ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM IS 
STARTED AT ADDRESS 204 OR IF THE PROGRAM DOES NOT RECEIVE A 
RESPONSE WHEN IT ACCESSES THE DEFAULT RM/RH ADDRESS. 
(DEFAULT ADDRESS = 176700, VECTOR = 254) 
ADDRESS SELECTION EXAMPLES 


EXAMPLE 1 
RMCS1=176700 <CR> ZNO CHANGE IN ADDRESS 
RMVEC=000254 <CR> :NO CHANGE IN ADDRESS 
EXAMPLE 2 


RMCS1=176700 177200<CR> ; CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> > CHANGE VECTOR ADDRESS TO 260 
KEYBOARD COMMANDS 


THROUGH THE KEYBOARD COMMANDS. THE OPERATOR MAY or ah DRIVES 
FOR TEST (*T* COMMAND), WRITE ee DATA (‘*W" COMMAND), 


— PERFORM A SEQUENTIAL READ ("R' COMMAND), PERFORM WRITc DATA AND 


FOLLOWED BY TEST (*WT* COMMAND ), REQUEST A DRIVE PERFORMANCE 
SUMMARY ('S* COMMAND), OR DEASSIGN A DRIVE ('D' COMMAND). 


SEQ 0015 


ee ee - 
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THE ‘T', ‘W', ‘R' AND ‘WT* COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 
ON THE SAME DRIVE UNDER TEST. THE 'D’ COMMAND MUST BE ENTERED IN 
ORDER TO er A DIFFERENT COMMAND TO THE SAME DRIVE UNDER TEST. 
EXCEPT FOR THE ‘S* COMMAND, WHICH CAN BE ENTERED AT ANY TIME 
DURING THE TEST. 


IF THE PROGRAM WAS STARTED AT ADDRESS 204 OR IF NO DRIVES ARE 
ASSIGNED FOR TESTING, THE FOLLOWING he SSAcE WIiL BE TYPE BEFORE 
ENTERING THE COMMAND MODE. HOWEVER, IF A "CONTROL C° IS TYPED 
WHILE TESTING IS IN PROGRESS, THE wGunihe WILL BE 


OMITTED AND THE PROGRAM WILL ENTER C 


"NO DRIVES ASSIGNED’ 


WHEN THE PROGRAM ENTERS THE COMMAND MODE, THE FOLLOWING PROMPT 
WILL BE TYPED: 


"HH :MM:SS 
ENTER COMMANDS: ' 


THE PROGRAM WILL THEN eg ANY OF THE VALID COMMANDS. AT THE 

COMPLETION OF A COMMAND, THE PROGRAM WILL EXIT COMMAND MODE AND 
TRY TO ASSIGN THE DRIVE(S) THAT WERE REQUESTED. IF THE DRIVE(S) 
CANNOT BE ASSIGNED, ONE OF THE FOLLOWING ERROR MESSAGES WILi BE 
REPORTED AND THE PROCESS CONTINUES FOR EACH DRIVE. 


RE SPONSE COMMAND (S) 
?DRIVE N LOAD DEVICE T, Ww, R, WT 
?DRIVE N OFFLINE T, Ww. R, WT 
2DRIVE N NOT ASSIGNED SS 
?DRIVE N ALREADY ASSIGNED T, WwW, R. WT 
7DRIVE N NOT PRESENT T, Ww. R. WT 
?DRIVE N UNSAFE T. WwW. R, WT 
2DRIVE N NOT AN RMOS/3/2 T, Ww, R, WT 


NEXT, THE PROGRAM WIL! PROCESS ALL THE ASSIGNED DRIVES AS FOLLOWS: 


WHEN THE PROGRAM IS ASSIGNING THE DRIVES, THE OPERATOR WILL BE ASKED 
TO CHANGE THE DRIVE PARAMETERS WITH THE FOLLOWING PROMPT: 


"CHANGE DRIVE PARAMETERS (L) N ?° 


IF THE ENTRY IS A ‘N* FOLLOWED BY A CARRIAGE RETURN OR JUST A CARRIAGE 
RETURN (DEFAULT), THE PROGRAM WILL NOT ALLOW ANY DRIVE PARAMETERS TO 


OMMANDE D 
IF THE ENTRY IS A ‘Y* FOLLOWED BY CARRIAGE RETURN, THE OPERATOR WILL 
BE ALLOWED TO CHANGE THE DRIVE PARAMETERS AS FOLLOWS. 


THE PROGRAM WILL Ag TELL THE OPERATOR WHICH DRIVE IS BEING 
REFERENCED FOR CHANGES 


‘axaeneaeaee DRIVE & N° 


ee a me te ee ee ee eee 
- LL En A ee - 
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THE PROGRAM WILL THEN INFORM THE OPERATOR WHAT THF HARD WIRED MBA 

Pella: NUMBER IS AND THE PACK SERIAL NUMBER IS, IN THE FOLLOWING 
‘MBA S/N: X PACK S/N: Y° 

WHERE ‘X* IS THE HARD WIRED oe SERIAL NUMBER CONTAINED IN THE 

RMSN REGISTER OF THE MBA. IF THE MBA SERIAL a IS NOT JUMPERED 

IN THE RMSN REGISTER, ‘'X* WILL APPEAR AS '7777° 

WHERE ‘Y* IS THE OCTAL SERIAL NUMBER READ FROM THE DEC144 BAD 

SECTCR FILE ON THE PACK. IF THE DEC144 FILE WAS UNABLE TO BE READ 

SUCCESSFULLY, "Y" WILL APPEAR AS ‘NONE’. 


THE PROGRAM WILL THEN ASK FOR ADDRESS LIMIT CHANGES WITH THE 
FOLLOWING TYPEOUT: 


"ENTER ADDRESS LIMITS:' 


THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
PARAMETERS. 


DEFAULT VALUE 


NAME VALUE RANGE FUNCT ION 

MINCYL QO - Gel. THE MINIMUM CYLINDER ADDRESS 

MAXCYL 821. 0 - 821. THE MAXIMUM CYLINDER ADDRESS 

MINTRK 0 0 - NN THE MINIMUM TRACK ADDRESS 
TRK NN O - NN THE MAXIMUM TRACK ADDRESS 

MINSEC 0 0 - 51. THE MINIMUM SECTOR ADDRESS 

MAXSEC 31. QO - 51. THE MAXIMUM SECTOR ADDRESS 


WHERE "NN" IS 4. FOR AN RMO3/02 AND 18. FOR AN RMO5. 


a Bi aa WILL THEN ASK FOR BAD SECTOR ADDRESSES WITH THE FOLLOWING 


"ENTER BAD SECTR ADRS:* 


hoe —— USED TO ENTER BAD SECTOR ADDRESS LOCATIONS ARE AS 


EXAMPLE 1: CYL, TRK,SEC= C,T,S<CR> 


A. THE PROGRAM WILL INHIBIT DATA ERROR MESSAGES FOR ERRORS 
OCCURRING AT THE SPECIFIED ADDRESS. 


B. LEADING ZEROS ARE NOT REQUIRED. 
EXAMPLE 2: CYL,TRK,SEC= C,T<CR> 


A. WHEN TRIS FORMAT IS USED, THE ENTIRE TRACK WILL BE 
CONSIDERED BAD. 


B. DATA ERRORS WILL BE HANDLED AS IN ‘EXAMPLE 1°. 


SEQ 0075 
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4.2.1 


EXAMPLE 3: CYL, TRK,SEC= C<CR> 


A. WHEN THIS FORMAT IS USED, THE ENTIRE CYLINDER wILL BE 
CONSIDERED BAD 


B. DATA ERRORS WILL BE HANDLED AS IN ‘EXAMPLE 1°. 


IF CONTROL C (*C) IS TYPED AS AN ENTRY, ALL CURRENT BAD SECTOR ENTRIES 
WILL BE LOST AND THE FOLLOWING MESSAGE WILL BE TYPED. 


*s ALL CURRENT ENTRIES LOST *° 


AFTER TYPING THE PREVIOUS MESSAGE, THE PROGRAM WILL WAIT FOR THE 
OPERATOR TO ENTER ANOTHER BAD SECTOR AS IN THE PREVIOUS EXAMPLES. 


IF 'L' IS TYPED FOR AN INPUT CHARACTER, THE PROGRAM WILL TYPE A LIST 
OF DEC144 BAD SECTORS, AND THE M4NUALLY ENTERED BAD SECTORS, WHICH ARE 
STORED IN THE DRIVE PARAMETER TABLE(DPB) FOR THAT PARTICULAR DRIVE. 


IF THERE ARE NO BAD SECTORS IN THE DPB TABLE, THE FOLLOWING MESSAGE 
WILL BE TYPED: 


"DEC144 AND MANUAL BAD SECTOR LIST 
* NO ENTRIES *° 


HOWEVER, IF THERE ARE ENTRIES IN DPB TABLE, THE LIST WILL BE TYPED 
IN THE FOLLOWING FORMAT: 


*DEC144 AND MANUAL BAD SECTOR LIST 


THE ABOVE LIST OF BAD SECTORS, ENTRY 1 INDICATES THAT CYLINDER 8.. 
TRACK 8., SECTOR 3 IS THE ®AD SECTOR. ENTRY 2 INDICATES THAT ON 
CYLINDER 16.. TRACK 13., ALL THE SECTORS ARE BAD (ENTIRE TRACK IS 
BAD). ENTRY % INDICATES THAT ON CYLINDER 256., ALL TRACKS AND SECTORS 
ARE BAD (ENTIRE CYLINDER IS BAD). ENTRY 4 INDICATES THAT CYLINDER 
500.. TRACK 1, SECTOR 29. IS THE BAD SECTOR. 


AFTER TYPING EITHER OF THE TWO PREVIOUS MESSAGES, THE PROGRAM WILL 
RETURN TO WAIT FOR MORE ENTRIES TO BE MADE INTO THE BAD SECTOR TABLE, 
AS IN EXAMPLES 1, 2 AND 3. 

TO TERMINATE THE BAD SECTOR ADDRESS ENTRY, TYPE A ‘CARRIAGE RETURN® 

IN RESPONSE TO THE ENTRY REQUEST OR TERMINATE THE ENTRY WITH A "PERIOD" 
FOLLOWED BY A ‘CARRIAGE RETURN’. 

*T* COMMAND 


USED TO ASSIGN A DRIVE(S) FOR AT 
TO PERFORM THE TEST OF THE DRIVE‘ 


FORMAT: TN<CR> 
N = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 


pF THIS COMMAND IS REQUIRED 


E 
S 


SEQ 0016 
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4.2.2 


4.2.5 


4.2.4 


4.2.5 


TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: TO<CR> = ASSIGN DRIVE Q FOR TEST 
TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST 


"D* COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 
FORMAT: DN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A’, ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: DO<CR> = DEASSIGN DRIVE 0 
DA<CR> = DEASSIGN ALL DRIVES BEING TESTED. 


"S' COMMAND 

USED TO REQUEST A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 
DRIVE(S). AFTER THE ‘'S* COMMAND HAS BEEN PERFORMED, THE PROGRAM 

WILL AUTOMATICALLY RESUME TESTING THE DRIVE(S) WHICH WERE UNDER TEST. 
FORMAT: SN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR °A‘. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: SO<CR> - TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 
SA<CR> = TYPEQUT PERFORMANCE SUMMARY FOR ALL DRIVES 
BEING TESTED. 
"Ww COMMAND 


USED TO PERFORM A SEQUENTIAL WRITE OF THE DISK, WITH DATA ACCEPTABLE 
TO THE PERFORMANCE EXERCISER PROGRAM. 


FORMAT: WN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR °A*. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WO<CR> - WRITE A DATA PATTERN ON DRIVE 0. 
WA<CR> - WRITE A DATA PATTERN ON ALL AVAILABLE DRIVES. 


'R" COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE DISK. 
FORMAT: RN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: RO<CR> - READ THE DATA ON DRIVE Q. 
RA<CR> = READ THE DATA ON ALL AVAILABLE DRIVES. 


SL OL LE TI OL OST TT TT TT ES SN mm Be mw mm Sens Ce kt ee oe 
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SEG 0018 
799 4.2.6  ‘wTl' COMMAND 
801 USED TO PERFORM A SEQUENTIAL WRITE DATA, FOLLOWED BY A ‘7T' COMMAND. 
805 FORMAT: WTN<CR> 
805 N = DRIVE NUMBER O TO 7 OR ‘‘A''. ENTRY MUST BE TERMINATED BY A 
806 CARRIAGE RETURN <CR>. 
808 EXAMPLE: WTO<CR> = WRITE A DATA PATTERN AND TEST DRIVE 0 
809 WTA<CR> = WRITE A DATA PATTERN AND TEST ALL DRIVES 
811 
812 
813 5. PERFORMANCE SUMMARY TYPEOUT 
815 
816 5.1 THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
817 BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY 
818 IF THE PARAMETER 'INTRVL’ IS NOT ZERO AND SW<O02>=0, OR IF THE 
819 ORIVE HAS REACHED THE DEFINED NUMBER OF PASSES AND SW<08>=0, 
820 OR IF THE OPERATOR REQUESTS TO DO SO BY USE OF THE °S* COMMAND. 
822 THE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 
824 "TIME" ELAPSED TIME OF PROGRAM 
825 "DRIVE" DRIVE NUMBER - DRIVE TYPE 
826 "PASS' PRESENi PASS COUNT FOR THE DRIVE 
6.7 "MBA S/N° HARD WIRED MASSBUS ADAPTER SERIAL NUMBER(RMSN) 
828 "PACK S/N* SERIAL NUMBER READ FROM THE DEC144 FILE ON THE PACK 
829 OF LOW" NUMBER OF TIMES °WRDS WRITN" HAS OVERFL 
830 "WRDS WRITN' TOTAL NUMBER OF WORDS WRITTEN BY THE DRIVE 
831 "RD Ow" NUMBER OF TIMES ‘WRDS READ’ HAS OVERFLOWED 
832 ‘WRDS READ’ TOTAL NUMBER OF WORDS READ BY THE DRIVE 
833 "SEEKS' NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED 
834 "SOFT" NUMBER OF SOFT DATA ERRORS 
835 "HARD" NUMBER OF HARD DATA ERRORS 
836 ‘scy* NUMBER OF *SKI" ERRORS 
837 "MISP’ NUMBER OF PROGRAM DETECTED POSITIONING ERRORS 
638 "OTHER' TOTAL ERRORS OF OTHER TYPES 
840 ALL DATA TRANSFER COUNTS, SEEK COUNTS AND ERROR COUNTS ARE ACCUMULATIVE 
al AND WILL NOT BE CLEARED AFTER EACH PASS. 
843 TO CALCULATE THE TOTAL NUMBER WORDS READ OR WRITTEN, TAKE THE OVERFLOW 
844 COUNT (RD OFLOW UR WT OFLOW), MULTIPLY IT BY 2,.147,483.647.. THEN ADD 
ee THAT NUMBER TO THE WORDS READ OR WRITTEN (WRDS READ OR WRDS WRITN). 
847 NOTE: ERRORS EM1, EM2, EM3, EM4, EMS, & EM10 ARE NOT INCLUDED IN THE 
as 'OTHER' ERROR TOTAL. 
520 5.2 SOF T/HARD ERROR DEFINITIONS 
852 vee HARD ERRORS 
853 


854 A. A 'DTE' (DRIVE TIMING ERROR) OR A “DCK* (DATA CHECK ERROR? 
&55 WHICH OCCURS DURING A READ DATA OR A READ HEADER & DATA OPERATION 


LE I EE LOE OE OG ET TACOS IT LCT ETT GY OF AN CTI ED I A CL Ee IR Ee A: i A a 
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Sohne 


6.1 


6.2 


6.3 


ORRECTABLE AFTER THE 


AND IS NOT CORRECTABLE OR DOES NOT BEC a C 
RETRY SEQUENCE ON THE BAD 


PROGRAM HAS PERFORMED THE COMPLETE 
SECTOR. 


THE RETRY SEQUENCE IS 16. RE=READS AT TRACK CENTER AND 2 ATTEMPTS 
BOTH AT POSITIVE AND NEGATIVE OFFSETS. 


SOFT ERRORS 


A. ECC CORRECTABLE ‘DCK* ERRORS. 

B. '‘DCK' & ‘ECH’ ERRORS WHICH BECOME ECC ate DURING 
RETRY OR WHICH ARE READ CORRECTLY DURING RET 

C. HEADER READ ERRORS = READ DATA, READ HEADER Q" DATA, OR 
WRITE DATA COMMANDS 

D. ‘DTE* ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
"DCK' ERROR DURING THE RETRY SEQUENCE. 


DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH ‘*RDDAT* (READ DATA) OR ‘RDHD* 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE COMMAND TERMINATED WITH NO ERRORS AND SW<01>=0 

B. THE OPERATION TERMINATED WITH ‘DCK* SET AND THE ERROR IS ECC 
CORRECTABLE OR THE SECTOR IN ERROR IS READ CORRECTLY AFTER 
RETRY ATTEMPTS. 

VERIFICATION OF DATA WRITTEN 

DATA VERIFICATION IS DONE gg’ THROUGH READING THE DATA BACK 


AND MATCHING THE DATA WITH ONE OF THE 15. PATTERNS OR THROUGH 
ISSUING A WRITE CHECK COMMAND AFTER DOING A WRITE DATA COMMAND. 


BAD ADDRESS FLAGGING 


WHEN A DRIVE IS ASSIGNED TO BE TESTED, THE PROGRAM READS THE BAD 
SECTOR FILE (DEC144) FROM THE DiSK AND THEN ALLOWS ADDITIONAL BAD 
SECTORS TO BE ENTERED MANUALLY. 


A MAXIMUM OF 252. BAD SECTORS ARE ALLOWED FOR EACH DRIVE. BOTH 
READING FROM THE bec i44 FILE AND ENTERING FROM KEY80ARD. 


THE MANUALLY ENTERED BAD SECTORS ARE NOT RECORDED TO THE BAD SECTOR 
FILE OF THE DISK CURRENT UNDER TESTING. 


IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED IN 
se, Bag TABLE, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR 
H ° 


DATA CHECK ERRORS (‘DCK") 


Le meee Oe eee ae me See tee 
—_ LL OF OE EEE Oe eM eR me ee 
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SEQ 0020 
912 WRITE CHECK ERRORS (‘wCE') 
914 OPERATION INCOMPLETE ERRORS ("OPT") 
915 DRIVE TIMING ERRORS ('DTE’ 
916 HEADER READ ERRORS (‘FER w/ HCRC’, ‘HCE W/ HCRC’ OR “HCRC") 
91? 
~ 918 
919 7, ERROR MESSAGES 
927 
35 ERRORS ARE REPORTED ON THE TTY CONSOLE. THE PROGRAM CONTAINS 
923 NO CODED ERROR HALTS. IF THE PROGRAM HALTS (ASSUMING, OF COURSE, 
924 THAT Sw<15> 1s NOT SET), AN UNRECOVERABLE PROGRAM CONDITION HAS 
| $35 OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS OCCURRED. 
i - 
| 33$ ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF of ROR 
92% HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
929 POSSIBLE ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THe 
| 930 SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 
$31 
932 7,1 ERROR DESCRIPTION LINES 
93 
934 (THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 
936 MESSAGE 
a TAG TEXT 
9 ee = wee 
| 939 
940 EM1 RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 
941 
942 THE RH CONTROLLER INTERRUPTED AND THE ATTENTION SUMMARY 
54,3 REGISTER (RMAS) WAS CLEARED. 
944 
945 EM2 UNEXPECTED ATTENTION OCCURRED 
946 
947 THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
948 PERFORMING AN OPERATION. 
949 
956 EM3 MASSBUS PARITY ERROR (MCPE=1) 
951 
952 | THE RH DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
953 THE INDICATED REGISTER FROM THE INDICATED DRIVE. 
954 
955 EM, MASSBUS PARITY ERROR (PAR=1) 
956 ; 
957 THE INDICATED RM DETECTED A CONTROL BUS PARITY ERROR 
958 WHEN THE RH LOADED THE SPECIFIED REGISTER. 
959 
960 : EMS ADDRESS PLUG CHANGE BIT SET 
1 
Eg THE "OPE" BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
963 
96% EM6 RH DIDN'T RESPOND TO ADDRESSING ° 
966 WHEN THE PROGRAM ADDRESSED THE RH, NO RESPONSE WAS RECEIVED 
967 FROM THE INDICATED ADDRESS. 
568 


969 EM10 UNCORRECTABLE MASSBUS PARITY ERROR 


Re me eee ee ee 


TTT re te en ne eee + ee 
I 
esietemnmemeeeemmaamneeee named = 
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EM11 


EM12 


EM15 


EM14 


EM15 


EM20 


EM21 


EM22 


EM23 


aecisten HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 


FATAL MASSBUS PARITY ERROR 


A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 


PERSISTENT DEVICE UNSAFE 


THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO THE DRIVE DID 
NOT CLEAR THE UNSAFE CONDITION. THE PROGRAM WILL 
AUTOMATICALLY DEASSIGN THE DRIVE. THE DRIVE CANNOT 
BE EXERCISED UNTIL THE UNSAFE CONDITION HAS SEEN 
CLEARED BY MANUAL INTERVENTION. 


OPERATION NOT COMPLETED WITHIN TIME LIMIT 


THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 10. SECONDS 
AFTER THE OPERATION WAS INITIATED. 


UNIT WENT OFFLINE 


He DRIVE Re of OF FL INE — THE INDICATED OPERATION. 

* BIT BECAME ZERO.) THE PROGRAM WILL A JSTOMATICALLY 
DE ASSIGN THE DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
WITH THE °T* COMMAND TO RE-INITIATE TESTING. 


NO RESPONSE TO PORT REQUEST 


THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
TO THe REQUESTING PORT WITHIN 15. SECONDS AFTER PORT REQUEST 
TO THE DRIVE FROM THE REPORTING PORT. 


HEADER CRC ERROR 


A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIEC 5 TIMES. 


DATA CHECK ‘*DCK*) ERROR 


A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 
THE FULL RETRY SEQUENCE CINCLUDING OFFSET) ee BE INITIATED 
ae iy SECTOR IN ERROR IF THE ECC HARD ERROR (°ECH) BIT 


WRITE CHECK ERROR = DATA CHECK (‘DCK*) SET 

A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK (“DCK*) BIT 
WAS SET. IF ‘ECH’ IS NOT SET, THE OPERATION WILL BE RETRIED 
UP TO 3 TIMES: IF THE 'ECH® BIT IS SET, THE OPERATION WILL 
BE RETRIED UP TO 16. TIMES. 


WRITE CHECK ERROR = DATA CHECK (“DCK*) NOT SET 


SEG 0021 
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EM24 


EM25 


EM26 


EM27 


EMSO 


EM31 


EM32 


EM33 


EM34 


EM35 


A WRITE CHECK ERROR OCCURRED AND ‘DCK* WAS NOT SET. THE 

WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 

HEADER READ ERROR = ‘FMT’ BIT DROPPED 

A WRITE DATA, WRITE CHECK DATA, OR A READ DATA WAS BEING 
PERFORMED AND A ‘FMT’ ERROR OCCURRED. THE PROGRAM RE“READ THE 
HEADER OF THE ERROR SECTOR AND THE ‘HCRC’ BIT WAS SET. THE 
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 

BE RETRIED 5 TIMES. 

HEADER READ ERROR = HEADER COMPARE (‘HCE’) ERROR 


SIMILAR TO EM24, EXCEPT THAT THE ‘HCE’ ERROR BIT WAS 
SET INITIALLY. THE OPERATION WILL BE RETRIED 3 TIMES. 


FORMAT ERROR (‘FER*) 

FORMAT ERROR OCCURRED. WHEN THE HEADER WAS REREAD, THE 
"HCRC' BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 
HEADER COMPARE (*HCE’) ERROR 


SIMILAR TO EM26 EXCEPT THAT THE ‘HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


MISCELLANEOUS DRIVE ERROR 
THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS: 
‘AOE’, "RMR', “ILF', OR “ILR® 


OPERATION INCOMPLETE (*OPI*) ERROR 
oe uaa INCOMPLETE ERROR OCCURRED AT THE INDICATED 


DRIVE TIMING ("DTE*) ERROR 


DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


PARITY ('PAR') ERROR AFTER OPERATION STARTED 


THE *PAR* BIT WAS SET WHEN _THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 5 TIMES. 


WRITE CLOCK FAILURE (‘WCF*) 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


INVALID ADDRESS (‘IAE*) ERROR 
AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 


LLL A A A Ee ew —--- 
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SEQ 0023 
ee EM36 WRITE LOCK (‘WLE') ERROR 
1086 A WRITE OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 
108? LOCKED. 
1989 EM4O RH CONTROLLER OR UNIBUS TRANSFER ERROR 
1091 'TRE' IS SET IN THE RH CONTROL REGISTER AND NO DRIVE 
1092 ERROR HAS OCCURRED. THE OPERATION WILI. BE RETRIED 3 
1093 TIMES IF THE ERROR WAS CAUSED BY ‘DLT’, ‘UPE’, ‘MxF’, 
109% OR 'MDPE' 
1096 EM41 BUS ADDRESS OR WORD COUNT INCORRECT 
1098 | NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES 
1099 AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 


WORD COUNT REGISTER IS NOT ZERO. 

EM42 DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED 
NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE . 


EM43 CAN'T MATCH DATA READ WITH A PATTERN 


THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 


EM44 ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER 
THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGR4&M 
FOUND EITHER ERROR BITS IN THE RM SET OR ERROR BITS IN 
THE RH CONTROLLER SET. 

EM45 ECC LOGIC FAILURE 
DURING *DCK* ERROR PROCESSING, THE CONTENTS OF THE ECC 
POSITION REGISTER (RMEC1) OR THE CONTENTS OF ECC PATTERN 
REGISTER (RMEC2) WERE NOT VALID. THE POSITION REGISTER WAS 
EITHER 0 OR GREATER THAN 010040, OR THE PATTERN REGISTER 
CONTAINED ZEROS. 

EM46 BUS ADDRESS OR WORD COUNT NOT CONSISTENT 
THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 

EMS0 SEEK INCOMPLETE ERROR 
THE DRIVE SIGNALED EITHER "SKI" ERROR. 


EM51 NOT USED 


a a ee ee ee ee ee ee ee eS ee he ee | 
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EM60 DEVICE UNSAFE 
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Cee 


THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A ‘DRIVE CLEAR’ INSTRUCTION. 

DETAIL ERROR LINES 

THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


HH:MM:SS 


"HH:MM:SS' IS THE TIME SINCE THE PROGRAM WAS STARTED. 
(HOURS, MINUTES, SECONDS) 


"PRSNT .COMMAND= XXXX PREV COMMAND= YYYY’ 
MNEMONICS USED FOR THE COMMANDS ARE DEFINED BELOW: 


SEEK = SEEK (OCTAL 5) 
RECAL = RECALIBRATE (OCTAL 7) 
DRVCLR = DRIVE CLEAR (OCTAL 11) 
RELSE = RELEASE (OCTAL 13) 
OFFSET = OFFSET (OCTAL 15) 
RTC = RETURN TO CENTERLINE <OCTAL 17) 
READIN = READIN PRESET (OCTAL 21) 
PACK = PACK ACKNOWLEDGE (OCTAL 23) 
SEARCH ~ SEARCH (OCTAL 31) 
“GETREG - GET REGISTERS (OCTAL 41) 
*SETFMT - SET FORMAT (ECI OR HCI) (OCTAL 43) 
*SELDRV ~ SELECT DRIVE (OCTAL 45) 
WCKD | - WRITE CHECK DATA (OCTAL 51) 
WCKHD = WRITE CHECK HEADER & DATA (OCTAL 53) 
WRTDAT ~- WRITE DATA (OCTAL 61) 
THD = WRITE CHECK HEADER & DATA (OCTAL 63? 
RDDAT = READ DATA (OCTAL 71) 
RDHD = READ HEADER & DATA (OCTAL 73) 


* SPECIAL RM DRIVER COMMAND (NOT A CONTROLLER COMMAND) 


(DISPLAY OF THE RH/RM REGISTERS IN TWO GROUPS: 

RMCS1, RMCS2, RMDS, RMER1, RMER2, RMEC1T AND RMEC2 FORM THE FIRS! 
GROUP: ALL THE OTHER REGISTERS ARE IN THE SECOND GROUP. 
IF Sw<05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 


THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 


's ERROR AT BAD TRACK/SECTOR" 


SEQ 0024 
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THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
ARAME TER 


ON THE DISK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. P 
"NOTPRT' MUST BE O FOR THE ERROR TO BE REPORTED. 


A WORD CALLED ‘STATUS’ IS DISPLAYED WITH THE RM REGISTERS. THE 


CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
RM DRIVE HANDLER ROUTINE. (SEE SECTION 9.7) 


ERROR AT CXXX TYY SZZ PREV ADDR= CUUU TVV SwW 


THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
SECTOR ADDRESSES ARE IN DECIMAL. 


PRSNT ADDR= CXXX TYY SZZ PREV ADDR= CUUU TVV Swi 


THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, & SECTOR 
ADDRESSES ARE GIVEN IN DECIMAL. 


START CYL= XXX END CYL= YYY 


THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK CIMPLIED) 
AND THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 


LINE 6 


START CYL= XXX END CYL= YYY ACTUAL CYL= 222 
THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK, 


THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 
STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMAL. 


RMBA= XXXX RMWC= YYYY 
THIS LINE GIVES THE CONTENTS OF THE RH CONTROLLER BUFFER ADDRESS 


REGISTER AND THE RH CONTROLLER WORD COUNT REGISTER. THIS LINE IS 
NOT PRINTED IF SW<O05> IS NOT SET. 


START CYL= XXX START TRK= YY START SECTOR= 22 


ES SS RD Re Ne ee me ee me a 


SEQ 0025 
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THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF THE PRESENT 
OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 


RMDA= XXXX RMCA= YYYY 


THIS LINE GIVES THE CONTENTS OF THE RM TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
CC REGISTER. THIS LINE IS NOT PRINTED IF sW<05> IS NOT 


LINE 10 


BUFFER ADDR= XXXX WRD CNT= YYYY ACTUAL NUMBR WRDS XFRD= 7272 


THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OPERATION, ITS SIZE(WORD COUNT), AND THE 
ACTUAL: NUMBER OF WORD TRANSFERED. THE STARTING ADDRESS OF THE 
BUFFER 1S IN OCTAL. THE WORD COUNT AND WORDS TRANSFERED VALUE 


LINE 11 


GOOD DATA= XXXX BAD DATA= YYYY SECT POS= 222 
THIS LINE GIVES THE GOOD DATA, THE ACTUAL DATA FROM THE DISK, 


AND THE LOCATION IN THE SECTOR OF THE ACTUAL DATA. THE SECTOR 
POSITION IS IN DECIMAL. 


HEADER CONTENTS OF ERROR SECTOR= XXXX XXXX XXXX XXXX 


THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 


LINE 13 


RMEC1= XXXX RMEC2= YYYY 


THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 
WHICH BECAME ECC CORRECTABLE DURING RETRY. 


LINE 14 


ECC CORRECTABLE WITHOUT OFFSE) 


retiiay IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 


SEQ 0026 
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LINE 15 


READ CORRECTLY AT (NEG OR POS) OFFSET 


THE SECTOR IN ERRGR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSET VALUE. 


ECC CORRECTABLE AT (NEG OR POS) OFFSET 
ea IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


LINE 17 


CORRECTED ON X RETRY 
a WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


UNCORRECTABLE AFTER X RETRIES 


THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


LINE 19 


DIFFERENT ERROR DURING RETRY 
WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED. 


IF THIS LINE IS PRINTED, THE RH/RM REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 


TOTAL COMPARE ERRORS= XXXX 


THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 


——— ee <a ee ee WEE mee ee Oe ee ee ee ee ee oe 
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LINE 22 


THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 


LINE 23 


ECC CORRECTION RESULTS 


THE PROGRAM PERFORMED ECC CORRECT 
THE ADDRESS IN MEMORY OF THE WORD 
BEFORE CORRECTION AND THE WORD(S) 


ON AND THE RESULTS ARE REPORTED. 
S)_IN ERROR ARE GIVEN, THE WORD(S) 
AFTER CORRECTION ARE PRINTED. 


ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 


THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ‘DCK* ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
= Ft "XXX" IS THE WORD OFFSET VALUE FROM ‘°RMEC1" AND IS IN 


ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN'T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 
LINE 26 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 
IF SwW<03> IS SET, THE SECTOR WHICH GAVE THE "DCK*, “DTE* OR. 


‘wCF* ERROR OR "HARD' DATA CHECK ERROR IS PRINTED. THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 


TCTAL ERRORS:X WOFL:N WRDS WRITN: YYYY ROFL:N WRDS READ: 2222 


THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 


"ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 


WOFL" NUMBER OF TIMES ‘WRDS WRITN' HAS OVERFLOWED 
WWRDS WRITN' IS THE TOTAL NUMBER OF WORDS WRITTEN THE DRIVE. 


A a ee Re ee ee ee me ne ee 
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CZ7RMUBO RMOS/3/2 PERF EXER 


dD 3 
MACRO V04.00 4=-APR=81 01:42:25 PAGE 3=25 


J 


8.1 


*"ROFL* NUMBER OF TIMES ‘WRDS READ’ HAS OVERFLOWED 
"WRDS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 


LINE 28 


TOTAL SEEKS: XXX TOTAL POS ERR= YYY TOTAL SKI ERR= 7 
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


"TOTAL SEEKS* IS THE TOTAL NUMBER OF SEEK OPERATIONS PERF CRMED 
BY THE DRIVE. 


"TOTAL POS ERR’ IS THE TOTAL NUMBER OF PROGRAM DETECTED POSITIONING 
ERROR BY THE DRIVE. 


ne elie ERR' IS THE TOTAL NUMBER OF ‘SKI ERRORS SIGNALED BY 
: 


PROGRAM DESCRIPTION 


PROGRAM OPERATION 


WHEN THE PROGRAM IS STARTED, PROVIDING APT TTY ENABLE BIT IS SET 
OR DIAGNOSTIC LOADED BY OTHER THAN APT SCRIPT MODE, ALL TABLES AND 
PARAMETERS ARE CLEARED OR INITIALIZED. THE PARAMETERS WHICH ARE 
UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 

CONSISTENCY. RH CONTROLLER INTERRUPT ENABLE ("IE") IS SET. TTY 
KEYBOARD INTERRUPT ENABLE IS SET, AND THE KW11-L OR KW1i-P CLOCK 
IS STARTED. COMMAND ENTRIES WILL NOW BE ACCEPTED BY THE PROGRAM. 


THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 


1) DRIVES TO ASSIGN/DEASSIGN 

2) PERFORMANCE SUMMARY TYPEOUT REQUESTS ) 

3) DRIVES REQUIRING COMMAND INITIATION, BUFFER ASS!GNEMENT, 
OR PARAMETER SELECTION. 

4) DRIVES COMPLETING CURRENT OPERATIONS. 


THE PROGRAM gig SCANNING ITS TABLES UNTIL AN ENTRY IS FOUND. 
IN THE CASE OF THE PROGRAM AT INITIAL START, THE Ad ENTRY WILL 
BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED ('T* COMMAND). 


WHEN A DRIVE IS ASSIGNED, Ma. By ae ENTRY ROUTINE VERIFIES THAT THE 
DRIVE 1S PRESENT, IS AN RMO AND IS ONLINE. THE ASSIGNMENT 
ISSUES A "READIN PRESET INSTRUCTION, SETS “FMT16°, AND 
ISSUES A "RECALIBRATE' INSTRUCTION. 


PARAMETERS FOR ge} ee ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK COMMAND, THE ASSIGNED BUFFER 
WILL BE FILLED WITH THE SELECTED ge pend (WRITE CHECK COMMANDS ARE 
ISSUED AFTER EACH WRITE COMMAND, THE WRITE CHECK eee: USES THE 
PARAMETERS SELECTED FOR THE PRECEDING WRITE COMMAND.) CONTROL 

IS THEN PASSED TO THE COMMAND INITIATION ROUTINE. 


me ee ee me re ee 
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% 
‘ane THE COMMAND INITIATION ROUTINE F 
1485 THE REQUESTED OPERATION. IF THE 
1486 PERFORM THE OPERATION, THE PROGRAM ISS 
1487 TO THE DRIVE WITH A ‘TARGET’ SECTOR WHICH IS 
14 THAN THE ‘TRANSFER’ SECTOR. (TH L Ow 
1489 OPERATIONS ON ANOTHER DRIVE WHIL 
| 1490 DRIVES, ARE SEARCHING FOR 'TARGE 
| 1491 THE PROGRAM ARE IMPLIED SEEK SEAR 
| 1492 DRIVE FINDS THE 'TARGET’ SECTOR AND INTERRUPTS, THE PROGRAM 
| 1493 ISSUES THE REQUESTED COMMAND TO THE DRIVE THAT INTERRUPTED. 
| 14 
1298 WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
| 1496 ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 
| 1298 IF THE OPERATION HAS BEEN COMPLETED NORMALL Y THE SAVED DRIVE REGISTERS 
| 1499 ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET: THE 
1500 BUS ADDRESS AND WORD COUNT ADDRESS REGISTERS ARE CHECKED TO VERiEY 
1501 THAT THE CORRECT NUMBER OF WORDS HAVE BEEN TRANSFE 
1502 TWO REGISTERS ARE CONSISTENT WITH EACH OTHER; AND iF 
| 1503 READ COMMAND, THE DATA BUFFER IS COMPARE 
1504 COMPLETED. THE DRIVE IS RETURNED TO THE ASSIGNED, INACTIVE LIST. THE 
1505 PROGRAM THEN INITIATES A DATA TRANSFER ON A WAITING DRIVE AND 
1506 RESELECTS AND REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. | 
1507 
1208 ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. 
1509 ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 
1510 | 
151 1 A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 
1218 OPERATION NOT COMPLETED WITHIN TIME LIMIT - EM13 
1514 UNIT WENT OFFLINE - EM1 
1 
gra B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 
1517 
1518 CORRECTABLE UNSAFE - EM60 
1519 DRIVE TIMING ERROR - EM32 
1520 DATA CHECK ERROR - EM21 
1521 WRITE CHECK WITH DCK SET ~ EM22 
1522 HEADER CRC ERROR 
1523 ? FORMAT ERRORS - EM24., 
1524 HEADER COMPARE ERRORS - omens . EM27 
1525 PROGRAM DETECTED POSITIONING ERROR - EMS1 
1526 SEEK INCOMPLETE ERROR - EM 
i WRITE CHECK WITHOUT 'DCK' SET - EM23 
1528 RH CONTROLLER OR UNIBUS TRANSFER ERROR - EM40 
1529 ‘OPI’ ERROR - EM31 
1530 "PAR’ ERROR - EM33 
1531 "WCF ERROR - EM34 
: 1532 'TAE’ ERROR - EM35 
1533 'WLE*’ ERROR - EM36 
1534 MISCELLANEOUS DRIVE ERROR - EM30 
1 . , 
1336 C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 
1 BUS ADDRESS OR WORD COUNT INCORRECT - EM41 
i 123 DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED - EM42 
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SEQ 0031 

1540 CAN'T MATCH DATA READ WITH A PATTERN = EM43 
1541 ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER = EM44 
1542 ECC LOGIC FAILURE = —M45 
lee BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM46 
a) 8.2 DUAL PORT OPERATION 
1547 DUAL PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED 
1548 IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
1éan AND COMMAND TERMINATION. 
1551 WHEN THE DUAL PORT HANDLER ROUTINE IN THE EXERCISER PROGRAM RECEIVES 
1552 A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS 
1553 ONLINE. THE DRIVE IS SELECTED AND THE RMCS1 REGISTER IS READ TO 
1554 TEST THE ‘DVA’’ BIT. IF THE DRIVE IS IN NEUTRAL, THIS WILL SEIZE THE 
1555 DRIVE. IF THE DRIVE 1S SEIZED BY THE OTHER PORT . A DRIVE CLEAR COMMAND 
1556 IS ISSUED TO THE DRIVE TO SET ‘PORT REQUEST’. THE PROGRAM THEN CHECKS 
1557 '‘DVA' IN "RMCS1'. IF THE DRIVE IS AVAILABLE AS INDICATED BY THE ‘DvA’ 
1558 BIT, THE COMMAND SEQUENCE WILL BE INITIATED IN THE NORMAL MANNER (SEE 
1559 SECTION 8.1 ABOVE). IF ‘DVA* WAS NOT SET, THE PROGRAM MAKES AN ENTRY 
1560 FOR THE DRIVE IN AN INTE "PORT REQUEST PENDING’ TABLE AND 
1561 STARTS A 15. SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 
1562 SWITCHED TO THE REQUESTING Ah ian WITHIN THE 1" SECOND INTERVAL, 
1565 THE PROGRAM REPORTS A "NO RESPONS PORT REQUEST’ ERROR. NORMALLY 
1564 THIS ERROR MESSAGE INDICATES A PAILURE IN THE DUAL PORT CONTROL 
1565 LOGIC IN THE DRIVE BEING TESTED; HOWEVER, UNDER CERTAIN CONDITIONS 
1566 (E.G. MASSBUS PARITY ERRORS BEING REPORTED ON THE OTHER SYSTEM 
1567 ON A TTY), THE OTHER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 
1568 AFTER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST BE AWARE OF 
1569 WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES 70 INTERPRET THE PORT 
taee RELATED ERROR MESSAGES PROPERLY. 

| 
1572 AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
1573 THE REGISTERS AND ISSUE A ‘RELEASE’ TO THE DRIVE; IF THE OPERATION 
1574 TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
Le 2 ERROR PROCESSING HAS BEEN COMPLETED. 
1577 SINGLE PORT DRIVES, DRIVES WHICH ARE IN NEUTRAL BUT NOT BEING 
1578 EXERCISED BY THE OPPOSITE PORT ARE STILL TREATED AS DUAL PORT 
1579 DRIVES IN THAT A RELEASE COMMAND IS ISSUED AT THE END OF NORMAL 
1580 COMMAND PROCESSING OR AT THE END OF ERROR PROCESSING. A RELEASE 
1581 COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL EFFECT 
ieee ON THE OPERATION OF THE DRIVE. 
Fy 8.3 SELECTION OF OPERATION VARIABLES 
1586 A. ecnae ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 
1587 MINSEC’ AND *MAXSEC’. TRACK ADDRESS SELECTION IS RANDOM 
1588 BETWEEN THE VALUES IN ‘MINTRK* AND “MAXTRK'. CYLINDER ADDRESS 
1589 SELECTION IS RANDOM BETWEEN "MINCYL' AND “MAXCYL*. IF A MINIMUM 
1590 ADDRESS IS GREATER THAN THE CORR ESPONDING MAXIMUM ADDRESS, THE 
4 PROGRAM WILL SWAP "MAX* AND "MIN" ADDRESSES AND CONTINUE. 
1593 B. THE WORD COUNT IS RANDOMLY SELECTED BETWEEN 6 AND THE VALUE 
1594 "WRDOCNT'. THIS IS NECESSARY AS THE PROGRAM REQUIRES 4 LOCATIONS 
1595 IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH THE DATA 


1596 TO A PATTERN FOR DATA COMPARISON PURPOSES AND NEEDS 2 MORE 
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MF 2 LOCATIONS IF A READ HEADER & DATA COMMAND IS ISSUED. 

1599 C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15. STANDARD 
1600 PATTERNS. THE PARAMETER ‘PATTERN’ ENABLES THE RANDOM PATTERN 
160} SELECTION, IF THIS PARAMETER IS 0. 

1603 D. THE COMMANDS ARE SELECTED RANDOMLY. WRITE CHECK DATA COMMAND IS 
1604 PERFORMED ONLY IF THE PREVIOUS COMMAND WAS THE APPROPRIATE WRITE 
1605 DATA COMMAND. 

1606 

1607 

1608 B.4 DATA PATTERNS 

6 

1610 THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TG WRITE 
1611 WHEN A WRITE COMMAND IS SELECTED. THE ENTIRE BUFFER IS FILLED WITH 
1612 THE SELECTED PATTERN. WHEN DATA IS READ FROM THE DISK, THE PROGRAM 
1613 COMPARES DATA ON A SECTOR BASIS. IF THE PARAMETER ‘PATTERN’ IS 0 THE 
1614 PROGRAM WILL ATTEMPT TO MATCH THE FIRST 4 DATA WORDS OF EACH SECTOR, 
1615 TO ONE OF THE FOLLOWING PATTERNS. HOWEVER, IF THE PARAMETER ‘PATTERN’ 
1616 1S NOT 0, THE PROGRAM WILL ASSUME THAT THE DESIRED DATA PATTERN IN 
1617 LOCATION "PATTERN' IS THE DATA TOL FOR AND WILL NOT TRY TO MATCH 
1618 ANY PATTERNS. THIS ALLOWS THE OPERATOR TO SCAN THE DISK FOR ANY 
1619 SPECIFIC PATTERN. 

151 

ioc PAT 1 PAT 2 PAT 3 PAT & PAT 5 PAT 6 PAT 7 *PAT 8 

6 eceses eeeesesn seeecen eeeeee eesaee aeneane eesnhmean aanaeee 
1624 000001 177776 000000 133331 052525 155555 026455 155555 

1625 000003 177774 133331 052525 155555 026455 133333 

1626 000007 177770 133331 052525 155555 026455 155555 

1627 000017 177760 177777 133331 125252 155555 151322 133333 

1628 000037 177740 177777 133331 125252 155555 151322 155555 

1629 000077 177700 177777 133331 125252 155555 151322 133333 

1630 000177 177 133331 052525 155555 026455 155555 

1631 000377 177400 090000 133331 052525 155555 026455 133333 
1632 000777 177 177777. 133331 125252 155555 151322 155555 

1633 001777 176000 177777 133331 125252 155555 151322 133333 

1634 003777 1746000 000000 133331 052525 155555 026455 155555 

1635 007777 (17 177777. 133331 125252 155555 151322 133333 

1636 017777 160000 133331 052525 155555 155555 

1637 037777. 14 177777 133331 125252 155555 151322 133333 

1638 077777 100000 133331 052525 155555 026455 155555 
1659 177777 177777 183331 125252 155555 151322 133333 

64 

166) PAT 9 PAT 10 PAT 11. PAT 12 PAT 13. PAT 14 PAT 15 

1643 000001 177776 172666 077777 153333 177777 

1644 000002 177775 155555 137777 67 177777 

1645 0004 177773 172666 157777 153333 177777 000000 

1646 000010 177767 155555 167777 ? 177777 000000 

1647 000020 177757 172666 173777 153333 177777 000000 

1648 000060 177737 155555 175777 667 177777 000000 

1649 000100 177677 172666 176777 153333 177777 

1650 000200 17 155555 177377 066667 177777 

1651 000600 177377 172666 1775 153333 177777 000000 

1652 001000 176777 155555 177677 066667 177777 

1653 002000 175777 172666 177737 153333 177777 000000 


ee - 
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1654 004000 173777 155555 177757 066667 177777 000000 

1655 010000 1 176008 177767 153333 177777 000000 

1656 020000 157777 1555 177773 96660" 177777 000000 

1657 040000 137777 176808 177775 15 3 177777 000000 

bs gs 100000 077777 15555 177776 066667 177777 000000 

1 * WORST CASE PATTERN 

1662 9.1 RH/RM DRIVER 

Benes ag ee ae A a oy as ee 

1664 

by THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RM DRIVER. 

I 

Le wd 9.2 TO INITIALIZE THE DRIVER: 

1669 JSR PC ,RMINIT 

by RETURN 

1672 UPON RETURN YOU MUST tag gy THE ‘DRVSTA’’ TABLE TO DETERMINE 
1673 THE DRIVES THAT ARE ONLINE FOR TESTING. THE ‘DRVSTA’ TABLE [5S 
1674 EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
be BE INDICATED AS FOLLOWS: 

1677 DRVSTA DRIVE _STATE 

RR ts A ES ey Te Oe ae EG lee SS Nlgeelaneigadalgeniia 

1679 

1680 >0 ONL INE 

1681 =0 OFFLINE, DRIVE 

1682 1S NOT AN RM05/3/2, OR 

1683 NONEXISTENT DRIVE 

tee <0 UNSAFE 

1686 THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ‘*DRyTYP*. 
1687 THE TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
ber DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: | 
1690 DRVTYP CONDI TION 

Bes, Soe SU a ae at Sd ca ta po es i 0 | ere 

1692 

1693 0 NONEXISTENT DRIVE 

1694 4 RMO3 

1695 5 

1696 7 RMOS5 

4 -1 NOT AN RMO05/3/2 

Ls «44 THE 'RMINIT* ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 
1701 . B55 AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
1702 FOLLOWING SEQUENCE. 

1703 

1704 CALL: 

1705 JSR RO,RMOS sMAKE THE CALL 

1706 PNTDPB sADDRESS OF DPB* 

1707 RE TURN] sRETURN IF QUEUE IS FULL 

1708 RE TURN2 sRETURN IF REQUEST [IS IN 

1709 sQUEUVE OR THERE IS AN 

1710 “ERROR CONDI] TION 
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9.4 


9.4.1 


LLL ELLE LE ON TE Ee I we 


*DPB (DATA PARAMETER BLOCK) 


PNTDPB: .BYTE 0 ;(0) DRIVE NUMBER 

BYTE Q 3(1) OFFSET VALUE OR FMT16, ECT, AND wCI 

-BYTE Q ; (2) COMMAND 

BYTE O ;(3) PSEL AND A17 AND A16 

.WORD QO ;(4) WORD COUNT (MUST BE NEG.) 

«WORD 0 ; (6) BUFFER ADDRESS OR 
;REGISTER TABLE POINTER 

BYTE 0Q ;(10) SECTOR ADDRESS OR 
FIRST REG. INDEX 

BYTE 0 3411) TRACK ADDRESS OR 
;LAST REG. INDEX 

«WORD OQ 3(12) CYLINDER ADDRES 

-WORD 0 3 (14) ERROR TABLE POINTER 
;POINTS TO THE FIRST OF TWENTY 
;LOCATIONS OF WHERE THE DRIVER 
;1S TO STORE THE RH/ 
sREGISTERS ON AN ERROR. IF LEFT 
; ZERO REGISTERS ARE NOT SAVED. 

-WORD 0 (16) STATUS/ERROR INDICATOR 
;B1115=1=ERROR OCCURRED 

1T07=1=DONE 


7B 
:B1T14-B1T09 AND gt Ne TO5 
; INDICATE TYPE OF E 


THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 
TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE “RM TIMER’’ ROUTINE 
WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


MOV #16. ,-(SP) 316. MILLISECONDS BETWEEN 
sCLOCK TICKS 
JSR PC ,RMTMR 7CALL 14E TIMER ROUTINE 


IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE 70 DRIVE THE 
CLOCK AND THE ELAPSED TIME MUST BE IN M:LLISECONDS. 


EXAMPLE - WRITE 1000. WORDS 


1$: JSR RO,RMOS :CALL THE DRIVER 
WRTDPB *DPB ADDRESS 
BR 1$ sWAIT FOR QUEUE IF FULL 
e$: eH oo “WAIT FOR COMMAND 10 COMPLETE 
Q 
BM] ERROR? sERROR OCCURRED 
WRIDPB: .BYTE 5 sDRIVE #5 
BYTE QO ; 
-BYTE 161 :WRITE COMMAND 
BYTE O : 
. WORD -1000. sWORD CCUNT 
.WORD WRTBUF sRBUFFER ADDRESS 


EE OR EY Ore et 8 ree eee ee ees 


SEQ 0034 
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9.3 


9.6 


WRIDPB: . 


BYTE 3 


D 400 
-WORD ERRTBS 
. WORD 


RH/RM REGISTERS 


* RH70 CONTROLLER REGISTERS 
COMMANDS PERFORMED BY THE DRIVER 


DRIVE CLEAR 


T 
RETURN TO CENTER 
READIN PRESET 
PACK ACKNOWLEDGE 


; SECTOR 
3; TRACK 
CYLINDER 


“ERROR TABLE 
“STATUS/ERROR INDICATOR 


; THIS SETUP — 


CODE COMMAND TYPE 
105 Pp 
107 p 
117 N 
113 N 
115 p 
117 me 
121 N 
125 N 


- 
SF ¢ {yi} 
_ a ~v 
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9,7 


SEARCH 131 Pp 
GET 8 add 141 S 
SET FORMA 143 S 
SELECT DRIVE 145 S 
WRITE CHECK DAT 151 D 
WRITE — “HEADER & DATA 153 D 
WRITE DAT 161 D 
WRITE HEADER & DATA 163 D 
READ DAT 171 D 
READ HEADER & DATA 173 D 
N = HOUSEKEEPING 

P = POSITIONING 

D = DATA TRANSFER 

S = SPECIAL PROVIDED BY THE DRIVER 


DPB STATUS/ERROR INDICATOR WORD 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
Her ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


BIT NO. 


15 


14(1) 


1301) 


12(2) 
112) 
10(2) (4) 


9(3)(4) 
8(4) 

7 

6(2) 
§(2) 


4(2) 


MEANING IF ON A ‘*T"’ 


ERROR OCCURRED 
DONE (B1T07=0); BITS 14-9 SPECIFIES TYPE 
DONE (BITO7=1); BITS 6-3 SPECIFIES TYPE 


USER MADE A REQUEST FOR A FUNCTION TO BE 
PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 


USER MADE A REQUEST FOR A FUNCTION 

TO BE PERFORMED ON A DRIVE THAT HAS AN 
UNLOAD REQUEST IN QUEUE. 

PERSISTENT UNSAFE CONDITION EXIST. 
UNCORRECTABLE PARITY ERROR OCCURRED 
FATAL PARITY ERROR. A MASSBUS og WAS 
PERFORMED, ALL QUEUES WERE EMPTIED. 

ALL DRVACT'S SET TO THE IDLE STATE 
SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN I/0 OPERATION 


ERROR OCCURRE? besaiesn AN OPERATION 
OTHER THAN |7' 


CORRECTABLE uNSAFE CONDITION OCCURRED 


SL EN SR SH Rm em we Pe ee ee ee _— --- 


SEQ 0036 


ee ere eee ere 
Se ee ee 


Te 
ee eee 


—_—_——— Seow 
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3(2) DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC ‘'RECALIBRATE’’ SEQUENCE 

2 PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 
THE DRIVE BUT THE OPPOSITE PORT DID NOT 
RELEASE THE DRIVE WITHIN 15. SECONDS. 

1 NON-EXISTENT DRIVE REQUESTED. USER MADE 


A REQUEST FOR A NON-EXISTENT DRIVE. 


NOTES FOR ABOVE 


(1) = 


REQUEST WASN'T PUT IN QUEUE. 


(RH/RM 


REGISTERS WERE NOT SAVED) 


REQUEST QUEUE HAS BEEN gt fe 


THE DRIVER 
"DRIVE CLEAR’’ TO THE DRIVE. 


NOTE: ALL RH/RM REGISTERS ARE SAVED 
AS PER DPB+14 BEFORE THE ‘DRIVE CLEAR’’. 


REQUEST QUEUE HAS BEEN EMPTIED. 


THE 


DRIVER ISSUED A MASSBUS INIT. ALL 
RH/RM REGISTERS FOR THE DRIVE WERE 
SAVED AS PER DPB+14 BEFORE THE INIT. 


(2) = 

ISSUED A 
(3) = 
(4) = A *'RECAL 


IBRATE*’ SHOULD BE ISSUED 


BEFORE ANY OTHER COMMAND. 


9.8 ERROR CALLS MADE BY THE DRIVER. 


THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
WHEN THIS TYPE OF Fg IS DETECTED BY THE DRIVER IT WILL MAKE 
FORM ‘ERROR N’', WHERE *N'° 


AN ERROR CALL OF THE 
NUMBER AND THE ERROR WILL BE AN 


N TYPE 

1 RH/RM_ INTERRUPT 
OCCURRED (RHAS=0) 

2 UNEXPECTED ATTENTION 
OCCURRED 

3 MASSBUS PARITY 


ERROR (MCPE=1) 


IS THE 
EMT INSTRUCTION. 


ERROR 


DATA AVAILABLE 


*R4= RMCS1°S ADDRESS 


Ri= DRIVE NUMBER 
R3= ATA BIT 

*R4= RMCS1°S ADDRESS 
R5= (RMAS) 

RMERRS _=RMDS 
RMERRS+2=RMER1 
RMERRS+4=RMER2 
RMERRS+6=RMMR2 


RD.ADR= ADDRESS OF REG. READ 
RD.WRD= WORD READ 


SEQ 0037 


eieeeetititeeessee enti 
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‘ MASSBUS PARITY 
ERROR (PAR=1) 

5 set A LUG CHANGE 
BIT SET (*OPE’ ERROR) 


WRT.AD= ADDRESS OF REG. WRITTEN 
WRT.WD= WORD WRITTEN 

RD.WRD= WORD READ BACK 

ake ae rey NUMBER 


A BIT 
*R4= RMCST S ADDRESS 
(RMAS ) 


RMERRS +6=RMMR2 


* THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 


ne ee ee tm meee 


SEQ 0036 
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1 
55 
56 


57 


001100 
104000 
000004 


177570 


000000 
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:*LAST REVISION 04~APR~81 


TITLE ner vt le PERF EXER 
:*COPYRIGHT (C) 1981 
:*DIGITAL EQUIPMENT on 


; * COLORADO SPGS., CO 


: sPROGRAM BY MIKE LEAVITT 


‘THIS PROGRAM WAS ASSEMBLED Se THE PDP=11 MAINDEC SYSMAC 
: *PACKAGE (MAINDEC=11=DZQAC-C5), 18-MAR=81 


* SBITL OPERATIONAL SWITCH SETTINGS 


*“® 

.* SWITCH 
_e (i a a tas 
s* 15 
:* 13 
:* 10 
:* 8 
:* ? 
;* 6 
:* 5 
;* 

;* 4 
5% 

s* 3 
.* 

;* 

3% 

3* 

;* 2 
7* 

:* 1 
:* 0 


HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

INHIBIT END OF PASS MESSAGES 

DISPLAY ALL DATA COMPARE ERRORS 

DON'T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 
PARTIAL REGISTER DISPLAY IF E 

NO ECC eae. RESULTS DISPLAYED IF ERROR 
44 NOT CHECK FOR MAXIMUM ERROR COUNTS 


F TEST 
DISPLAY ERROR SECTOR IF "DCK*, “DTE*, OR ‘WCF* ERROR 
tg IF *DCK* ERR UNCORRECTABLE AFTER 
IF DATA COMPARE ERROR & SWO7 SET. DISPLAY 
REMAINDER OF BUFFER 
A. DO NOT TYPE UNIT STATUS AT PROGRAM START 
8. DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME 
INHIBIT DATA COMPARE AFTER READ COMMAND, W/O ERROR 
READ ONLY MODE 


Sbtedi te 
S 
— 
Uo 
<Rae 
v 
Bx 
ro 
<= 
mm 
> 
~ 
m 
S 
© 


oO 
* 


-SBTTL BASIC DEFINITIONS 
“oy OF THE STACK POINTER *** 1100 *** 


7;BASIC DEFINITION OF ERROR CALL 
; sBASIC DEFINITION OF SCOPE CALL 


2 bere 5 lana DEFINITIONS 


3 * INITIAL 
STACK = 
ERROR = EMT 
SCOPE = IOT 

HT = 11 
LF = 12 
CR = 15 
CRLF = 200 
PS = 177776 
PSW=PS 
STKLMT = 177774 
PIRQ = 177772 
DSWR = 177570 
DDISP = 177570 
; *GENERAL 
RO = 


;:CODE FOR HORIZONTAL TAB 
;;CODE FOR LINE FEED 
+3 CODE FOR CARRIAGE RETURN 
:CODE FOR CARRIAGE RETURN-LINE FEED 
; PROCESSOR STATUS WORD 


:STACK LIMIT REGISTER 
; PROGRAM INTERRUPT REQUEST REGISTER 
; HARDWARE SWITCH REGISTER 
; ;HARDWARE DISPLAY REGISTER 


* leis REGISTER DEFINITIONS 


;;GENERAL REGISTER 


Se ee ee me ee 8 em me wm ee Ce ee oe ee ~~ —- 


SEQ 0039 


2 B 4 
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BASIC DEFINITIONS 
000001 R1 = %1 ;:GENERAL REGISTER 
000002 R2 = 4? ::GENERAL REGISTER 
000003 R3 = ¥3 ::GENERAL REGISTER 
900004 RG = %% GENERAL REGISTER 
| 000005 R5 = 45 : GENERAL REGISTER 
| 000006 R6 = %6 ti REGISTER 
| 000007 R? = %7 : GENERAL REGISTER 
| 000006 sp = %6 : STACK POINTER 
| 000007 PC = %7 : PROGRAM COUNTER 
| :*PRIORITY LEVEL DEFINITIONS 
| 000000 PRO = 0 :;PRIORITY LEVEL 0 
| 000040 PRI = 40 ::PRIORITY LEVEL 1 
000100 PR = 100 :PRIORITY LEVEL 2 
| 000140 PR3 = 140 ::PRIORITY LEVEL 3 
| : 000200 PR4 = 200 ::PRIORITY LEVEL 4 
000240 PRS = 240 PRIORITY LEVEL 5 
000300 PR6 = 300 :EPRIORITY LEVEL 6 
000340 ? = 340 = :PRIORITY LEVEL 7 
:*"'SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 Sw15 = =: 100000 
040000 Swi4 = 
020000 Sw13 = - 20000 
010000 Swi2 = 10000 
004000 Swi1 = 4000 
2000 Swi0 = =_- 2000 
001000 swo9 = 1000 
00 swo8 = 400 
000200 SwO7 = 200 
000100 Sw06 * = 100 
000040 swoS = 40 
20 SwO4 = = 20 
000010 swo3. = 10 
000004 SwO2 = 4 
000002 swol = 2 
000001 swoO = 1 
001000 Sw9=SWO9 
00 SwB=SWO8 
€00200 SW7=SWO7 
000100 SWO=Sk 
| 000040 Sw5=SWO5 
000020 Suo=S 
000010 Sw3=SWO03 
000004 Sw2=SWO02 
000002 Sw1=SWO01 
000001 SwO=S 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 B1T15 = 100000 
04000C BIT14 = 40000 
020000 BIT13 = 20000 
010000 BIT12 = 10000 
004000 BIT11 = 4000 
002000 BIT10 = 2000 
001000 BITO9 = 1000 
000400 BITOB = 400 
¥ 


SEQ 0040 
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eS 


ooonnnnununn 
OoOo°Ceo 
SS 


—fy & — fy & YY 


pigaaeeseers 
44H 


—SSe 
WeWUO VvOowo 


BI TO=B1T00 


;*BASIC ‘‘CPU"' TRAP VECTOR _ADDRESSES 


ERRVEC = IME OUT AND OTHER ERRORS 

RESVEC = 1 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 :3''T'* BIT 

TRIVEC = 14 +3 TRACE TRAP 

BPTVEC = 14 sBREAKPGINT TRAP (BPT) 

tbe H3 = $0 : INPUT/QUTPUT TRAP (JOT) **SCOPE** 
EMTVEC = 30 ; 3EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC = 34 32° "TRAP*’ TRAP 

TKVEC = 60 :;TTY KEYBOARD VECTOR 

TPVEC = 64 *:TTY PRINTER VECTOR 

PIRQVEC = 240 : PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RH CONTROLLER REGISTERS 


:CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 
RDY = 200 
Al6 = 400 
A17 = 1000 
PSEL = 2000 
MCPE = 20000 
TRE = 40000 
7SC = 100000 


;WORD COUNT REGISTER (RMwC) 


; INTERRUPT ENABLE (BIT #6) 
:READY (BIT #7) 

HIGH ORDER BUS ADDRESS BIT (BIT #8) 
“HIGH ORDER BUS ADDRESS BIT (BIT #9) 
:PORT SELECT (BIT #10) 

;MASSBUSS PARITY ERROR 5 #13) 

> TRANSFER ERROR (BIT #14 

7SPECIAL CONDITION (BIT #15) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


;BUS ADDRESS REGISTER (RMBA) 


; (EACH BIT IS CALLED BY BIT NUMBER) 
;CONTROL AND STATUS REGISTER 2 (RMCS2) 


uS1 = 7 
US2 = 2 
US4 = 6 


SEC 004) 


D 4 
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— RA CONTROLLER REGISTERS 


100 000070 BAI 

101 000020 PAT 

10 000040 CLR 
| 103 000100 IR 
| 104 000200 OR 
| 105 000400 MDPE 
106 001000 MXF 
) 107 002000 PGE 
108 000 NEM 
| 109 010000 NED 
| 140 020000 UPE 
| 1 040000 WCE 
| 112 100000 DLT 

113 

114 

115 

116 

117 

178 

115 

720 


40 
100000 


:DATA BUFFER REGISTER (RMDB) 


.SBTTL RM REGISTERS 
;CONTROL AND STATUS 1 REGISTER. 


100000 


;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 


;MASSBUS rT 4s) TEST (BIT 44) 


: (B ) 

sOUTPUT READY (BIT #7) 

;MASS BUS PARITY ERROR (BIT 48) 

;MISSED TRANSFER ERROR (BIT #9) 

;PROGRAM ERROR (BIT #10) 

7NON EXISTENT MEMORY (BIT #11) 

;NON EXISTENT DRIVE (BIT 412) 
UNIBUS PARITY ERROR (BIT #13) 

‘WRITE CHECK ERROR (BIT #14) 

DATA LATE (BIT #15) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


(#00) 


= BIT (B1Y #0) 
sFUNCTION CODE BIT 41 
; FUNCTION CODE BIT #2 


; IT #5 
:DEVICE AVAILABLE (BIT #11) 


OFFSET ON (BIT #0) 

; VOLUME VALID (BIT #6) 
:DRIVE READY (BIT #7) 
;DRIVE PRESENT (BIT #8) 


PROGRAMABLE (BIT #9) 
“LAST BLOCK TRANSFERRED (BIT #10) 
:WRITE LOCK (BIT #11) 
;MEDIUM ON-LINE (BIT #12) 
;POSITIONING OPERATION IN PROGRESS ‘BIT #13) 
;COMPOSITE ERROR (BIT #14) 
sATTENTION ACTIVE (BIT #15) 


1435 7ERROR REGISTER #01 (RMER1) (402) 


roehunhhnnkh un wu 


127 094000 DVA 

129 :DRIVE STATUS REGISTER (RMDS1) (#01) 
| 
Riese 


; ILLEGAL FUNCTION (BIT ~ 

; ILLEGAL REGISTER (BIT # 

sREGISTER MODIFICATION REFUSED (BIT #2) 
;PARITY ERROR ait > #3) 


E B ) 
:WRITE CLOCK FAIL (BIT #5) 
:ECC HARD ERROR (BIT #6) 
:HEADER COMPARE ERROR (BIT #7) 
;HEADER CRC ERROR (BIT #8) 
;ADDRESS OVERFLOW ERROR (BiT #9) 
; INVALID ADDRESS ERROR (BIT #10) 
“WRITE LOCK ERROR (BIT #11) 


SEQ 0047 


OF TT <a 
Le ee es re ee ee 
eS eee eee erotinanesiene + ee 
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Si 
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100000 


;DRIVE TIMING ERROR (RIT #12) 


ZOPERATION INCOMPLETE aaa #13) 


:DRIVE UNSAFE 


:DATA CHECK ERROR (BIT. 15) 


;MAINTAINABILITY REGISTER (RMMR1) (403) 


ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (404 


sDEVICE O (BIT 
sDEVICE 1 (BIT 
;DEVICE ¢ (BIT 
; DEVICE (BIT 
;DEVICE 4 (BIT 
sDEVICE 5 (BIT 
DEVICE 6 (BIT 


“DEVICE 7 (BIT 


(BIT #14 


) 


:DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05? 


:DRIVE TYPE REGISTER (RMDT) (#06) 


HuHnHnnhhhHnHhaeh eee 


;DRIVE REQUE 


; TAPE DRIVE (BIT #14 


;NOT SECTOR ADDRESSED (BIT #15) 


;LOOK-AHEAD REGISTER (RMLA) (#07) 


; SERIAL 
(EACH IS CALLED BY BIT NUMBER) 


OFFSET REGISTER (RMOF) (#11) 


OFFDIR 
HC] 


ECi 
FMT16 


100 
200 
400 
1000 
2000 


NUMBER REGISTER (RMSN) (#10) 


1 
2000 


4000 
10000 


sOFFSET DIRECTION 


:HEADER COMPARE INHIBIT (BIT #10) 
ERROR CORRECTION CODE INHIBIT (BIT #17) 
“FORMAT BIT (BIT #12) 


DESIRED CYLINDER ADDRESS (RMDC) (#12) 


DWONAUES WO 


R BIT 
ST REQUIRED (BIT #11) 
-MOV ING HEAD (BIT ta 


SEQ 004% 


F 4 
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—~ DD 
- 


SEQ 0064 
; (EACH BIT IS CALLED BY BI! NUMBER) 


>CURRENT CYLINDER ADDRESS (RMCC) (413) 
; (REGISTER CURRENTLY NOT USED) 


:RM ERROR REGISTER #02 (RMER2) (#15) 


000010 DPE = 10 ;DATA PARITY ERROR (BIT #3) 
0002CG DvC = 200 SDEVICE CHECK (BIT #7) 

002000 LBC = 2000 ;LOSS OF BIT CLOCK (BIT #10) 
004000 LSC = 4000 :LOSS OF SYSTEM CLOCK (BIT #11) 
010000 IVC = 10000 ; INVLAID COMMAND ERROR (BIT 412) 
920000 OPE = 20000 [OPERATOR PLUG ERROR (BIT #13) 
040000 SK] = 40000 ;SEEK INCOMPLETE (BIT #14) 
100000 BSE = 100000 :BAD SECTOR ERROR (BIT #15) 


ECC POSITION REGISTER (RMEC1) (416) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


ECC PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


.SBTTL RM DRIVER COMMANDS 


000101 RNOP = =_-:101 ;NO_OPERATION 

000105 SEEK = =_:105 ; SEEK 

000107 RECAL. = 107 ;RE CALIBRATE 

000111 DRVCLR = 111 :DRIVE CLEAR 

000113 RELSE = 113 ; RELEASE 

000115 OFFSET = 115 : OF FSET 

000117 RTC = 117 ;RETURN TO CENTER LINE 
000121 READIN = 121 SREAD IN PRESET 

000123 ACK = 123 ; PACK ACKNOWL EDGE 
000131 SEARCH = 13] > SEARCH 

000141 GETREG = 141 ;GET REGISTERS 

000143 SETFMT = 143 SET FORMAT (& ECI OR HCI) 
000145 SELDRV = 145 ‘PSELECT DRIVE 

000151 WKD = 151 ;WRITE CHECK DATA 
000153 WCKHD = 153 [WRITE CHECK HEADER & DATA 
000161 WRTIDAT = 161 WRITE DATA 

000163 WRTHD = 163 WRITE HEADER & DATA 
000171 RDDAT = 171 ;READ DATA 

000173 RDHD = =_:—*173 :READ HEADER & DATA 
176700 = 176700 

900254 AVECT1 = 256 


Renbtchosibaenenties LL Oe ES SF ee ee er ee 
- — ee ——— -_ Se ee ee re es ee = (omen ~ eee SS 


Te mf tee = eee + eee ee ae eee eee ee ee 
LLL ATT ee 
ST EE SK eee eee ae ——— 
- -- ~ —= 
' 


© Z7RMUBO 


RMOS/3/¢ 


TRAP CATCHER 


ME Wr 


OS NOs 


Q00T 74 
000176 
000200 


000204 


000046 
000052 


090024 
000044 


B8ssese 
TSRRSSS 


2 PERF EXER 


003644 
003634 


| 
| 
| 
| 
| 
| 
| 
| 


~ SBITL 


‘HOOKS REQUIRED BY ACT11 
$SVPC=, 
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TRAP CATCHER 


FROM 4 = 776 CONTAIN A ‘',#2,HALT"’ 
. TRAPS AND INTERRU 


=0 
>*ALL UNUSED err ee ry pri 
0 CATCH IMPROPERL Y LUADED VECTORS 


:*SEQUENCE TO CATCH ILL 
SLOCATION, . CONTAINS 0 


DISPREG: * WORD Q 37 SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 ;sSOFTWARE SWITCH REGISTER 

~SBTTL STARTING ADDRESS(ES) 
JMP @ASTART ;,JUMP TO STARTING ADDRESS OF PROGRAM 
JMP @ASTART i CHANGE THE RH/RM ADDRESS 


ACT11 HOOKS 


PRR BREBRBRARESERRSRSSRSRRERRRSAERR SERRA RR RRRRSRR RASA RRR RRR SRRAR RSS SSS | 


SAVE PC 


=46 
$ENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD 40000 ::2)SET LOC.52 TO 40000 
" =$SVPC « RESTORE PC 
.=1100 
"SBITL APT PARAMETER BLOCK 


SF EARAAAAAAARAAARAATAARAAERORERERARAAARAERAERARHERARAAREAAARERERARAEAAS 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


ST AAARAATARAAAAARAAHAEEAAAERAEREAAAARAARARARERARAAAEREAEASRARARARERAEEES 


. SX=. 3; SAVE CURRENT LOCATION 

226 3:SET POWER FAIL TO POINT TO START OF PROGRAM 
00 32FOR APT START UP 

-=446 :3POINT TO APT INDIRECT ADDRESS PNTR. 


$APTHDR ;;POINT TO APT HEADER BLOCK 

= > :RESET LOCATION COUNTER 
SL AREER AAEAAEAAEAAARAREREAAAERARANAARERERAERARAREEAERRAERERARE AERA 
>SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


SAPTHD: 

$HIBTS: WORD :TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD SMAIL : [ADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: .WORD 6300. TIM OF LONGEST TEST 

$PASTM: .WORD 6300. : ERUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: WORD 6300. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
. WORD SETEND-SMAIL/2 ss LENGTH MAILBOX-E TABLE (WORDS) 

TAR. XY=, : CMTAGSTARING ADDRESS 


SEQ 0045 


LL TE Te TT 
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“OMMON TAGS SEQ 004¢ 


~SBTfi COMMON TAGS 


ss eeneeanasaenaaaraaggeseneagaanraaaneaaganananaganaranananaanananad 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM, 


001114 = TABLXY , 
001114 SCMTAG: :; START OF COMMON TAGS 
001114 WORD 0 
001116 000 STSTNM: .RYTE 0 :: CONTAINS THE TEST NUMBER 
GO1117 SERFLG: .BYTE 0 Zi: CONTAINS ERROR FLAG 
001120 000000 $ICNT: WORD 0 :ECONTAINS SUBTEST ITERATION COUNT 
901122 $LPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
001124 000000 $LPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
001126 $ERTTL: .WORD 0 Zi: CONTAINS TOTAL ERRORS DETECTED 
001130 SITEMB: .BYTE 0 ;: CONTAINS ITEM CONTROL BYTE 
001131 001 $ERMAX: BYTE 1 :: CONTAINS MAX. ERRORS PER TEST 
007132 SERRPC : 0 ::CONTAINS PC OF LAST ERROR INSTRUCTION 
007134 000000 $GDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘GOOD’ DAT 
601136 000000 $BDADR: .WORD 0 SECONTAINS ADDRESS. OF ‘BAD’ DATA. 
001140 000000 $GDDAT: .WORD 0 ::CONTAINS *GOOD* DATA 
001142 000000 $ADDAT: .wORD 0 :CONTAINS "BAD’ D 
001144 000000 .WORD 0 <ERESERVED=-NOT TO BE USED 
001146 000000 -WORD 
001150 —-000 $AUTOB: .BYTE 0 ; ;AUTOMATIC MODE INDICATOR 
001151 000 $INTAG: .BYTE 0 INTERRUPT MODE INDICATOR 
001152 000000 .WORD 0 
001154 177570 SWR:  .WORD DSwWR ; ADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: .WORD DDISP : EADDRESS OF DISPLAY REGISTER 
001160 177560 $TKS: 177560 TY KBD STATUS 
001162 177562 $TKB: 177562 TTY KBD BUFFER 
001164 177564 $TPS: 177564 :ETTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
001170 000 $NULL: .BYTE 0 [CONTAINS NULL CHARACTER FOR FILLS 
001171 002 $FILLS: .BYTE 2 CONTAINS # OF FILLER CHARACTERS REQUIRED 
001172 = O12 $FILLC: .BYTE 12 ;INSERT FILL CHARS. AFTER A “LINE FEED" 
001173 __000 $TPFLG: .BYTE 0 "TERMINAL AVAILABLE’ FLAG (BIT<07>=0=VYES) 
001174 000000 $TMPO: WORD 0 USER DEF INED 
001176 207 377 377 $BELL: ‘ASCIZ <207><377><377> 3; CODE FOR BELL 
001202. =: 077 SQUES: ASCII /2/ QUESTION MARK 
001203 015 $CRLF: ASCII <i5> S CARRIAGE. RETURN 
001206 O12 000 $LF:  .ASCIZ <12> LINE FEED 
FF AAAAAAAAAAHERARERERARAEAAERAKAARERERAKAAAEAAAEEARERAERAEREKRERRI EKER 
“SBTTL APT MAILBOX~E TABLE 
£ LARA AARAAAAAEEAEREAARERERAAAAAARARAAARAAAAEARHERANEAAR KERR e AR ERS 
“EVEN 
001206 SMAIL : ;;APT MAILBOX 
001206 090000 SMSGTY: .WORD AMSGTY SZMESSAGE TYPE CODE 
001270 000000 $FATAL: .WORD AFATAL :;FATAL ERROR NUMBER 
001212 600000 $TESTN: .WORD ATESTN :;TEST NUMBER 
001214 0600000 $PASS: .WORD APASS ;;PASS COUNT 
091216 000000 SDEVCT: -WORD ADEVCT DEVICE COUNT 
001220 000000 $UNIT: .WORD AUNIT [31/0 UNIT NUMBER 
001222 000000 $MSGAD: :WORD AMSGAD ;:MESSAGE ADDRESS 
001224 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 


001226 SE TABLE: :;APT ENVIRONMENT TARLE 


Oe Ce ee oe eee ee eee + 


LL eS Se hess ses nse Ss a>~ssisst se sneer 
- —_ 


“Z7RMUBO RMOS/3/2 PERF EXER 
APT MA]. BOX-E TABLE 


000 
000 
0 


000000 
000000 


MACRO 


¥04.90 


SENV: 
SENVM: 


-BYTE 
BYTE 


G=APR=B1 01:42:25 


AENV 
AENVM 
ASWREG 


AUSWR 
ACPUOP 


I 4 
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: ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
:;APT SWITCH REGISTER 


E 
11/05=02,11/20=03,11/40=04,11/45=05 
,PDQ=07 ,0=10 


T TIME CLOCK 

T OAT ING POINT PROCESSOR 
T MEMORY MANAGEMENT 

;;HIGH ADDRESS, as S. BYTE 


;;MEM, TYPE ,BLK 
(HIGH BYTE) 


EM.TYPE BYTE == 
900 NSEC CORE=00 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;;HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ #BOVvE 
; ;HIGH ADDRESS, 9° 5. BYTE 


se a YPE, KA 
aah ee ADDRESS ,BLK#2 
>; HIGH Rp ine M.S.BYTE 
M. TYPE ,BLKA2 
«MEM LAST ADDRESS, ,BLK&5 
+3 HIGH ADDRESS.M.S.BYTE 
+3 . TYPE ,BLKA&4 
:MEM.LAST ADDRESS,BLK& 
:; INTERRUPT VECTOR#1 SBS PRIORITYA1 
:: INTERRUPT VECTOR#2BUS PRIORITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
s;DEVICE MAP 
: : CONTROLLER DESCRIPTION WORDS! 
:: CONTROLLER DESCRIPTION WORD&2 


10=REA 
9=F 


] 
I 
31 


=~: ee -oow 


SEG 0047 


LLL TS A TT _ 
Re rete ee 
nee ee 
—_ SS Se ee 


001272 
vole 


CZRMUBO RMOS/3/2 PERF EXER 
USER DEFINED TAGS 


001220 
000000 
000000 
000000 

C00 
000003 
000000 


000000 
600000 


000 


K: 
RETRY: 


FRSTER: 


SAVER1: 
SAVERS: 


SECLMT: 
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USER DEFINED TAGS 


: «WORD 
D 


176700 


o~-—-ONO™N 


oootti-n--- PF 
Ww 


8 
© 


Oo 1 DOOOOO9OW Oooo 


WADODOOOCOOCOCOOSCOoooo & 


FIRST ADDRESS OF RH/RM REGISTERS 
; VECTOR ADDRESS 
ADDR OF KW11=P STATUS ye rit 
“ADDR OF KW11=-P COUNTER BUFFER 
SADDR OF KW11=P VECTOR 
; ADDR OF KWIT=L STATUS REGISTER 
ADDR OF KWil-L VECTOR 
40" IF KW1i1-P IS ON SYSTEM 
A CLOCK IS AVAILABLE 
;60. IF 60HZ SYSTEM, 50. IF SOHZ SYSTEM 
i Tee STATISTICS’ INDICATOR 
‘Ww ' COMMAND INDICATOR 


:DRIVE # STORAGE: ERRORS 1-5 & 10 
;SAME AS USED IN APT 

SATIN ” STORAGE : eee, oe @ 10 
:DRIVE # STORAGE FOR PRINT 

:ERROR RETRY REGISTER MASK 

:ERROR RETRY LIMIT IN THE LOWER BYTE 

:RETRY Y COUNT IN THE UPPER BYTE 

MAXIMUM TIME IN QUEUE VALUE 

:STORE LAST MEMORY ADDRESS HERE 

: CHANGE RH/RM UNIBUS ADDRESS FLAG 

;1F = -1, ‘CONTROL C° WAS FLAGGED 


33 D HER 
: TIMER ROUTINE COUNTER (FOR ONE SECOND 
:ZERO INDICATOR FOR THE DATA COMPARE ROUT INE 
:DATA COMPARE ERROR FLAG 
:IF > G, PROCESSING *DCKER® OR CAN'T MATCH PATTERN 
+ < 0, MISCOMPARSION FOUND 
MISCOMPARSION OR CAN'T MATCH PATTERN FLAG 
F < 0, ERROR IN BUFFER 
: SAVE R1 HERE 
: SAVE RS HERE 
7NUMBER OF ERRORS 
:DISPLAY LIMIT 
COUNT 


CYLINDER ADDRESS 

:SECTOR ADDRESS 

; TRACK K ADDRESS 

RROR BURST BIT OFFSET 

sERROR BURST WORD OFFSET (RELATIVE TO SECTOR) 
: CORRECTION MASK FOR FIRST ERROR WORD 

: CORRECTION MASK FOR SECOND ERROR WORD 
:LOCATION OF FIRST ERROR WORD 

>G ATA, FIRST WORD 


SECOND WORD 
“CYLINDER "ADDRESS LIMIT 
:SECTOR ADDRESS LIMIT 


SFO OC45 


_ CZRMUBO RMO5/3/2 PERF EXER 


_ USER DEFINED TAGS 


001426 
001430 


001432 


001434 
001436 


001466 


000015 
000000 


000000 


002740 
005455 


000003 


000001 


000000 


TRKLMT: 
DRVPAR: 


XXDP: 


. WORD 
. WORD 


. WORD 


13. 
0 


0 
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; TRACK ADDRESS LIMIT 

'WHEN DRIVES ARE BEING ASSIGNED, 

:0=CHANGE DRIVE PARAMETERS 

:1=D0 NOT CHANGE DRIVE PARAMETERS 

:THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
;'XXDP" DEVICE CODE FOR THE RMO5/3/c. 


.SBTTL COMMON PARAMETERS 
: THE FOLLOWING TWO LOCATIONS CONTAIN THE SOFT weir RATE WORDS USED TO 


:DETERMINE END OF PASS WHEN THE PROGRAM 


IS DATA 


BIASED. 
3 WILL TAKE APPROXIMATELY 3.335 PASSES 10 REACH THE SOFT ERROR RATE OF 


x 10°10 BITS (6.25 _X 10*8 


WORDS) READ OR 10. PASSES TO REACH THE 9C% 


: CONF IDENCE LEVEL OF 3 xX Vag BITS (1.875 kK 10*9 WORDS) READ. 
:ENDCON= LSB AND ENDCON+2= M 


ENDCON: 


. WORD 
. WORD 


002740 
005455 


:(1.875 xX 10*8 WORDS) OR (3 X 10*9 BITS) READ 


; THE FOLLOWING TWO LOCATIONS Be gill. THE SEEK ERROR RATE WORDS USED TO 


:DETERMINE END OF PASS WHEN THE PROGRAM 
:1T WILL TAKE 1 PASS TO REACH A SEEK ERROR RATE OF 1 X 
:PASSES TO REACH A 90% Sah yee LEVEL OF 3 X 


;ENDSEK= LSB AND ENDSEK+ 


ENDSEK: 


MAXER: 


CMPLMT: 
WRDCNT: 
INTRVL: 


PASSES: 


PATTERN: 


RANDWC : 


RATIO: 


ENDING: 


. WORD 
. WORD 


“WORD 
“WORD 
“WORD 


. WORD 


015200 
000006 


IS SEEK BIASED. 
10*6 SEEKS OR 3 
10*6 SEEKS. 


3(1 K 10*6 SEEKS) 


;MAXIMUM ERRORS ALLOWED PER DRIVE 
;NUMBER OF COMP 
: MUM WORD COUNT (32. SECTORS) 

PERFORMANCE TYPEOUT INTERVAL 
WORD IS THE INTERVAL COUNTER. 


“NOT USED WHEN PROGRAM IS OPERATING IN AUTO RUN(CHAIN) 


;MODE J. 

:1F EQ O,RANDOMLY SELECT DATA PATTERN 
:IF NOT EQ 0, SELECT ONE SET OF PATTERN 
:POINTED BY THE 'PATTERN'’. 

er EQ TO 0, GENERATE A RANDOM WORD COUNT 

:FOR THE OPERATION. 

>1F NOT £Q TO 0, USE THE VALUE IN ‘WRDCNT" FOR 


: THE WORD COUNT 
;READ/WRITE pee CRANGE 0 - 7) 
1 (READ/WRITE) 


. OU = UN PO 
*#eevee#eeed 
— & 

~ 

& 


“TF NOT EQ Q, END OF PASS DETERMINED 
“BY THE "WORDS READ' COUNT. (2.5 X 
:IF EQ 0, END OF PASS DETERMINED 
“BY THE SEEK COUNT. (4 X 10*5 SEEKS) 


10*8 WORDS) 


Oe ee ee ee ee en ee oS ee oe 8 ee 


SEQ 0049 


™ 


ree 
ceastetesee ides aoe 


001470 


00147e 


001474 


001476 


001500 
001502 


001504 


C7RMUBO ae AR PERF EXER 
| COMMON PARAME TE 


000001 


000001 


000000 


000000 


000010 
000004 


000400 


WRI CHK: 


. WORD 


MESSAGE : . WORD 


RANDOM: .WORD 
BADBLK: .WORD 
. SBTTL 
BEGPAT: .WORD 
BEGCOD: .WORD 
BEGWC: .WORD 
-SBITL TABLES, 
sLIST Pg DRIVES 
ORDERQ: .WORD 
~ WORD 
. WORD 
WORD 
» WORD 
. WORD 
«WORD — 
. WORD 
. WORD 
ASNLST: .WORD 
;ADDRESSES OF DR 
DUNIT:  .WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


MACRO V04.00 4=APR=81 01:42:25 


1 


1 
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;1F NOT 5? 0, DO AN APPROPRIATE WRITE 
:CHECK AFTER EACH WRITE COMMAND. 
4 O SELECT WRITE CHECK COMMANDS 


:1F EQ 1, DO NOT PRINT DATA ERROR MESSAGES 
; ASSOCIATED WITH OPERATOR SPECIFIED 
AD SECTOR AREAS. 
:1F NOT +, 0, PRINT ERROR MESSAGES RELATING TO 


: THESE AREAS. 
: “RANDOMLY SELECT Ro BLOCK 


ESS 
:1F BAD SECTOR ENTRY TABLE WILL ALWAYS 
A INITIALIZED WHEN ASSIGNING A DRIVE; IF EQ TO 
“THE BAD SECTOR ENTRY TABLE WILL ONLY BE INITIALIZED 
; NUMBER HAS CHANGED SINCE THE 


;LAST TIME IT WAS READ. (NOTE: IF THE SERIAL NO. HAS 
; CHANGED, THIS MOST LIKELY MEANS THAT THE PACK OR DRIVE 
:HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED) 


VALUES FOR FIRST OPERATION 


COCCOSCOO Oo OOOoo°co°ooe 


8. 


4 


256. 


oie PATTERN CODE CRANGE 1 - 15.] 
STARTING COMMAND CODE Sanne GO - 53 


WRITE CHECK DATA (‘WCKD*) 
= WRITE CHECK HEADER & DATA (‘WCHKHD* - NOT USED) 
= WRITE DATA (‘WRIDAT*) 
= WRITE HEADER & DATA (*WRTHD’ ~- NOT USED) 


READ DATA (°RDDAT*) 
READ HEADER & DATA (‘*RDHD*) 


4 ge 
21 
s¢ 
33 
3 = 
> STARTING WRD CNT CRANGE 6 - WRDCNTJ 


CONSTANTS, AND VARIABLE LOCATIONS 
PERFORMING COMMANDS 


zA BIT SET IS AN ASSIGNED DRIVE 


VES TO BE DEASSIGNED 


SEQ 0050 


| CZRMUBO RMOS/3/2 PERF EXER 
TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


M 4 
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: ADDRESSES OF NEWLY ASSIGNED DRIVES 
NEWUNT: . 


sLIST OF 
AVAIL: . 


;BUFFER 
BUF TBL : 


SSESSSSS5899988889938 


PEEEELEL 


e 
5 
> 


Ok ee 


5 


OOOCOOCOCOoOO 


ITING FOR BUFFERS/PARAME TERS 


WA 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ITING FOR BUFFERS 


WA 
0 
0 
0 
0 
0 
0 
0 
0 
0 


TABLE ENTRY COUNT 


.» s+ &© &* & & » 
DOOCOOVOCCOCOOOOoOooooO 


SEQ 00S) 


N 4 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS , SEQ 0052 
| 001764 000000 000000 WORD 0.0 
| 001770 000000 600000 "WORD 0.0 
| 001774 000000 000000 “WORD 0.0 
| 00000C WORD 0.0 
| 000000 000000 dD 050 
002010 000000 WORD 0.0 
| 002014 000000 000000 "WORD 0.0 
002020 000000 000000 “WORD 0.0 
| 002024 000000 000000 “WORD 0.0 
902030 000000 0 WORD 0.9 
002034 000000 000000 "WORD 0.0 
002040 000000 000000 “WORD 0.0 


;DRIVE —= BLOCK (DPB) POINTER TABLE 
WORD DRIVEO ;ADDRES 


002044 046202 BLKADR: . S OF THE PARAMETER BLOCK FOP DRIVE 0 
002046 050414 -WORD ODRIVE1 “ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 1 
002050 052626 .WORD DRIVE2 ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 2 
002052 055040 -WORD DRIVES ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 3 
002054 057252 -WORD DRIVES ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 4 
002056 0614 .WORD DRIVES ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 5 

2060 063676 -WORD ORIVE6 ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 6 
002062 11 -WORD DRIVE7 ;ADDRESS OF THE PARAMETER BLOCK FOR DRIVE 7 


:DRIVER COMMAND CONTROL TABLE (USED IN ph DRIVER) 


002064 151 COMTBL: .BYTE  WCKD eth CHECK DATA 
002065 377 BYTE -1 ;WRITE CHECK HEADER AND DATA (NOT USED) 
002066 161 -BYTE WRIDAT ;WRITE DATA 
002067 377 A 6) ;WRITE HEADER AND DATA (NOT USED) 
002070 177 -BYTE RDDAT ;READ DATA 
002071 173 -BYTE RDHD ;READ HEADER AND DATA 
;FUNCTION(COMMAND) CODE CONTROL TABLE 
002072 004 OPTBL: .BYTE 4 ; SEEK 
002973 -BYTE 6 > RECAL 
002074 010 -BYTE 10 :DRIVE CLEAR 
002075 012 wervTe.... 12 ; RELEASE 
002076 014 -BYTE 14 ; OF FSET 
002077 016 -BYTE 16 :RETURN TO CENTERLINE 
020 -BYTE 20 READIN PRESET 
002101 022 BYTE 22 PACK ACKNOWLEDGE 
002102 030 -BYTE 30 ; SEARCH 
002103 050 ~BYTE 50 ;WRITE CHECK DAT 
002104 052 vOrre ...-3¢ [WRITE CHECK HEADER AND DATA 
002105 060 -BYTE 60 sWRITE DATA 
002106 062 BYTE. . Ge WRITE — AND DATA 
002107 070 ~BYTE 70 :R DAT 
002110 072 OOYTE 72 : READ HEADER AND DATA 
002111 377 etTE «9 ; TERMINATOR 
EVEN 
| MESSAGE CONTROL TABLE FOR ‘OPTBL* TABLE 
002112 123 105 105 /SEEK 
002122 122 105 103 eASCIZ /RECAL / 
002132 104 122 126 ASCIZ /DRVCLR / 
002142 122 105 114 SCIZ /RELSE / 
002152. 117 106 106 eASCIZ /OFFSET / 
002162 122 124 103 ASCIZ /RITC / 


BS 3 
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TABLES. CONSTANTS, AND VARIABLE LOCATIONS SEQ 0057 
002172 122 105 101 -ASCIZ /READIN / 
2202 120 101 103 “ASCIZ /PACK 
002212 193 105 101 "ASCIZ /SEARCH / 
002222 127 103 113 "ASCIZ /WCKD / 
002232 127 103 113 "ASCIZ /WCKHD / 
002242 127 122 124 "ASCIZ. /WRTDAT / 
002252 127 122 124 "ASCIZ /WRTHD / 
002262 122 104 104 "ASCIZ /RDDAT / 
002272 122 104 110 "ASCIZ /RDHD = / 
2302 116 117 116 "ASCIZ. /NONE / 
002312 191 106 124 OFMSGO: .ASCIZ /AFTER RETRY WITHOUT OFFSET/ 
2345 101 124 040 OFMSG1: .ASCIZ /AT NEGATIVE OFFSET/ 
002370 101 124 040 OF MSG2 "ASCIZ /AT POSITIVE OFFSET/ 
002414 000 OFFCOD: .BYTE 90 OFFSET CODE TABLE 
002415 001 "BYTE 1 “NUMBER FOR NEGATIVE OFFSET (DIR = OUT) 
002416 000 abe "BYTE O “NUMBER FOR POSITIVE OFFSET (DIR = IN) 
002420 002312 OFMTBL: .WORD OFMSGO ;1ST OFFSET MESSAGE 
002422 002345 “WORD OFMSG1 :2ND OFFSET MESSAGE 
002424 002370 “WORD OFMSG2 :3RD OFFSET ME 


-SBTTL DATA PATTERNS 
Fata DATA ee POINTER TABLE 


002426 002472 STNDAT: .WORD DATAQ STANDARD DATA PATTERN 0 
430 002532 "WORD DATA1 ; STANDARD DATA PATTERN 1 
002432 002572 "WORD DATA2 =: STANDARD DATA PATTERN 2 
434 002632 [WORD DATAS; DATA PATTERN 3 
002436 002672 “WORD DATA4 STANDARD DATA PATTERN 4 
440 002732 "WORD DATAS STANDARD DATA PATTERN 5 
002442 002772 “WORD DATAG DATA PATTERN 6 
002444 003032 DATA? : STANDARD DATA PATTERN 7 
002446 003072 "WORD DATA STANDARD DATA PATTERN 8 
002450 003132 [WORD DATA STANDARD DATA PATTERN 9 
002452 003172 “WORD DATAIO : STANDARD DATA PATTERN 10 
002454 003232 “WORD DATA11 :STANDARD DATA PATTERN 11 
002456 003272 “WORD DATA12 :STANDARD DATA PATTERN 12 
002460 003332 “WORD DATA13 STANDARD DATA PATTERN 15 
2462 003372 “WORD DATA14 STANDARD DATA PATTERN 14 
002464 003432 _ WORD DATA15 ;STANDARD DATA PATTERN 15 
002466 002472 ‘WORD ZEROS ALL O'S PATTERN 
002470 003374 {WORD ONES = :ALL_1°S PATTERN 
002472 ZEROS: 
002472 000000 DATAO: .WORD 0 ;ALL O'S DATA PATTERN 
002474 000000 "WORD 0 
002476 000000 “WORD 0 
2500 000000 ; 0 
002502 000000 "WORD 0 
2504 000000 :WORD 0 
2506 000000 ; 0 
002510 000000 "WORD 0 
| 002512 000000 “WORD 0 


_ CZRMUBO RMOS/3/2 PERF EXER 
DATA PATTERNS 


177777 
177776 


DATA?: 


DATA2: 


DATAS: 


OOooCcooo 


00000; 
03 


177777 


177776 
177774 


600000 


ee ee ee ee 
— SED + © we Wee rewee 8 ee + se ree ote ee 


SS 
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; STANDARD PATTERN 1 


7 STANDARD PATTERN 2 


STANDARD PATTERN 3 


SEQ 0054 


D 5 
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DATA PATTERN SEG 005% 
002670 177777 WORD 177777 
002672 133331 DATA4: .WORD 133331 ;STANDARD PATTERN 4 
002674 133331 WORD 133331 
002676 153331 .WORD 133531 
002700 133331 .WORD 133331 
002702 133331 .WORD 1533331 

2 133331 «WORD 133331 
002706 133331 “WORD © 133331 
002710 133331 .WORD 1353331 
002712 133331 -WORD 133331 
002714 133331 «WORD 133331 
002716 133331 -WORD 133331 
002720 133331 «WORD 133331 
002722 135331 «WORD 133331 
002724 133331 WORD 133331 
002726 133331 .WORD 133331 
002730 133331 «WORD 1533331 
02732 052525 DATAS: .WORD 052525 ;STANDARD PATTERN 5 
C02734 052525 «WORD 052525 

736 052525 -WORD 052525 
002740 125252 -WORD 125252 
002742 125252 -WORD 125252 
002744 125252 -WORD 125252 
002746 052525 -WORD 052525 
002750 052525 «WORD 052525 
002752 125252 -WORD 125252 
002754 125252 -WORD 125252 
002756 052525 “WORD 052525 
002760 125252 -WORD 125252 
002762 052525 WORD 052525 
002764 125252 «WORD 125252 
002766 052525 . WORD O3E362 
002770 125252 -WORD 125252 
002772 155555 DATA6: .WORD 155555 ;STANDARD PATTERN 6 
002774 155555 -WORD 155555 
002776 155555 WORD 155555 

3 155555 155555 
003002 155555 -WORD 155555 

155555 -WORD 155555 

3006 155555 -WORD 155555 
003010 155555 -WORD 155555 
003012 155555 -WORD 155555 
003014 155555 -WORD 155555 
003016 155555 -WORD 155555 
003920 155555 -WORD 155555 
003022 155555 -WORD 155555 
003024 155555 -WORD 155555 
003026 155555 -WORD 155555 

3030 155555 «WORD 155555 
003032 026455 DATA7: .WORD 026455 ;STANDARD PATTERN 7 

3034 026455 «WORD 026455 
003036 026455 «WORD 026455 
003040 157322 «WORD 151322 


LO Se ee re er ee et em em em ee —- ——- 


CZRMUBO RMOS/3/2 PERF EXER 


DATA PATTERNS 


mvivl 


RAR 


—_ 


WIA UIA UA LAI VIA VAI IP IPO PU Mint 


aN a Rar ge aS Net pag aight 


3 
555 


176777 


DATAB: 


NATAS: 


DATAI0: 


. WORD 


. WORD 


04 

1000006 

177776 
75 


ms 
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; STANDARD PATTERN 8 (WORST CASE) 


;STANDARD PATTERN 9 


; STANDARD PATTERN 10 


EE EE A Te Se SR RL ee em ee we ~ o-- 


SEQ 0056 


CZRMUBO RMO5/3/2 PERF EXER 
DATA PATTERNS 


666 
155555 


077777 
137777 


177776 
153333 
066667 
153333 
066667 
153533 
066667 
153333 
066667 
153333 
066667 


153333 | 
7 


06666 

153333 
066667 
153333 
06666 7 


DATAl2: . 


DATA13: 


wi vi 
WMoru 
UMOrunowur 


ae 


177776 
153333 
066667 


7 
153333 
066667 


F 5 
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; STANDARD PATTERN 11 


;STANDARD PATTERN 12 


:STANDARD PATTERN 13 


SEQ 005° 


“7RMUBO RMOS/3/2 PERF EXER 
DATA PATTERNS 


177777 
177777 


177777 
C00000 
000000 
000000 


G 5 
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DATAI4G: . 
ONES: 


DATA15: 


a 


177777 
177777 
0 


: STANDARD PATTERN 14 
sALL 1°S DATA PATTERN 


;STANDARD PATTERN 15 


nme OL SS “SSeS sonnets = 
ere ee eee — 
tr es ee ee ee eee ee 


003502 
003504 
003506 
003510 


003512 
003514 
003516 
003520 


NM HO ODN AMF WPR "CO OONAUPW 


PORTO a et et Rt 


25 003522 
26 005524 


27 003526 
28 0035350 
29 
30 
31 
32 003552 
33 534 


3 

29 003542 
40 003544 
41 003546 
62 003550 


C7RMUBO RMOS/3/2 PERF EXER 
ERROR POINTER TABLE 


070412 
073063 
073530 
000000 


070464 
073070 
073534 
000000 


070522 
073144 
073552 
000000 


070560 


i. 
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.SBITL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
 *LOCATION SITEMB. 2 He NUMBER INDICATES WHICH ITEM IN THE TABLE ‘s PERTINENT. 


SERRTB: 
:ERROR 1 


ITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
3zPOINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

:;POINTS TO THE DATA FORMAT 


;RH CONTROLLER INTERRUPT OCCURRED (RMAS=0) 


; UNEXPECTED ATTENTION OCCURRED 


:MASSBUS PARITY ERROR (MCPE=1) 


>MASSBUS PARITY ERROR (PAR=1) 


;ADDRESS PLUG BIT CHANGED 


;RH CONTROLLER DIDN'T RESPOND TQ ADDRESSING 


SEQ 005% 


[ ES ES 
EE wapuuenensne 


C7RMUBO RMO5/3/2 PERF EXER 
FRROR POINTER TABLE 


Oui fiw -- 


003552 


011600 


010046 
104402 
000240 


000404 


012737 
000407 
012737 


000240 
012737 


012737 


013746 


003566 


177777 
000400 


000001 
000000 


001114 
001154 


000340 
176543 


177777 


004040 
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001336 
001336 


001212 


26 
037022 
037024 


000004 


175126 


;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: MOV (SP) RO :SAVE PC WHERE THE TIME OUT OCCURED 
TST =(RO) “ADJUST PC <2 
CMP (SP) +, (SP)+ “RESTORE STACK POINTER 
TYPE ,65$ ii TYPE ASCIZ STRING 
64$ “GET OVER THE ASCIZ 
j 1958: ASCI2Z CCRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/ 
MOV RO,-(SP) :SETUP FOR TYPING OUT PC 
NOP :PUT "HALT(O)' INSTRUCTION HERE IF YOU WISH 
*TO STOP ON UNEXPECTED TIMEOUT. 
BR START 1 “BRANCH TO START 
_SBITL START OF PROGRAM 
START: MOV #-1,CHGADR :SET RH/RM ADDRESS CHANGE FLAG 
RR START2 “START THE PROGRAM 
START1: #600, CHGADR :CLEAR THE RH/RM ADDRESS CHANGE FLAG 
eS SE 2 ee ke ere reerenee 
TST1: NOP 
MOV #1, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
START2: INC #0 :TTY LOOP, WAIT FOR INCREMENT 
BNE 74 :OF WORD 
RESET *CLEAR THE WORLD 
.SBITL INITIALIZE THE COMMON TAGS 
>: CLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV A#SCMTAG,R6 :zFIRST LOCATION TO BE CLEARED 


CLR (R6)+ *=CLEAR MEMORY LOCATION 
CMP #SWR RO ; 3 DONE ? 
BNE - ‘LOOP BACK IF NO 
MOV #STACK, SP >:SETUP THE STACK POINTER 
=: INITIALIZE A FEW VECTORS 
MOV WSERROR.@#EMTVEC ::EMT VECTOR FOR ERROR ROUTINE 
MOV #340, aEMTVEC+2 ;LEVEL 7 
MOV WSTRAP@#TRAPVEC :: TRAP VECTOR FOR TRAP CALLS 
MOV #340, AA TRAPVEC +2; LEVEL 7 
MOV  aAPWRVE ; sPOWER FAILURE VECTOR 
MOV #340, aAPWRVEC+2 ::LEVEL 7 
MOV #176545, $HINUM : PRIME THE RANDOM NUMBER GENERATOR 
MOV “BOTH HIGH AND LOW WORDS 


123456,$L 
;3SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT i 33 


FOUND OR 
7:EQUAL TO A ‘=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 


MOV QAERRVEC ,- (SP) chaaee ERROR VECTOR 
MOV #64$ ,aMERRVEC eget UP ERROR VECTOR 
MOV #DSWR, SWR = SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP, DISPLAY A HARDWARE DISPLAY REGISTER 
CMP #-1, aSWR STTRY TO REFERENCE HARDWARE SwWR 
BNE 668 ;:BRANCH IF NO TIMEOUT TRAP OCCURRED 
;s AND THE HARDWARE SWR IS NOT = -1 
BR 65$ ;BRANCH IF NO TIMEQUT 
64$: a4 #65$, (SP) ::SET UP FOR TRAP RETURN 


Tk ee a --- ———- —s oa + ewe 


SEQ 0060 


mer mm ee ae ee 
LL ne a ee ee ee 
ee ee ee ES eR ERS enn 


CZ7RMUBO RMO5/3/2 PERF te 
INITIALIZE THE COMMON TAGS 


004040 
004046 
004054 
004060 
004064 
004072 
004074 
004102 


2737 
2737 
2637 
5037 
2737 


012737 
012737 


005227 
001031 


0004 
112737 


005037 
122737 


000176 
000174 
000004 


001214 
000200 


001230 


003552 
000300 


177777 
004132 


000042 
001226 
001154 


000001 


001432 
000016 


000040 
000007 


001432 
000042 


0043206 


001432 


001203 
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001227 
001154 


000004 
000006 


000001 
000176 


001150 


000041 


001432 
001432 


65$: MOV ASWREG, SWR :;POINT TO SOFTWARE SWR 
MOV ADISPREG, DISPLAY 
66$: MOV (SP)+,@#ERRVEC ;;RESTORE ERROR VECTOR 
CLR $PASS ;CLEAR PASS COUNT 
BITB MAPTSIZE,SENVM ii TEST USER SIZE a; APT 
BEQ 67 YES,USE NON-APT SWITCH 
MOV ASSWREG, SWR 7INO,USE APT SWITCH REGISTER 


67$: 
:SETUP "'TIMEOUT'’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
MOV MBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
MOV WPR6,ERRVEC+2 LEVEL 6 


.SBTTL TYPE PROGRAM NAME 
: = TYPE THE NAME OF THE PROGRAM IF FIRST Aigo 
INC H=-1 szFIRST TIME? 
BNE 58S : ;BRANCH IF NO 
TYPE ,09$ oa ASCIZ Res ty 
BR 68$ OVER THE ASCIZ 
rtd eASCIZ <CRLF>@CZRMUBO - * BMS / 3/3 PERFORMANCE EXERC ISER@<CRLF > 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST a42 a2 WE RUNNING UNDER XxDP/ACT? 
BNE 70% : ;BRANCH IF YES 
CMPB SENV 41 : ;ARE WE RUNNING UNDER APT? 
BEQ 7 “BRANCH IF YES 
CMP SWR,.ASWREG : 3 SOFTWARE SWITCH REG SELECTED? 
BNE 71$ CH IF NO 
aaa pore > GET SOF T-SWR SETTINGS 
ee MOVB #1. $AUTOB ::SET AUTO-MODE INDICATOR 


>THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
;PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


CLR XXD :CLEAR "XXDP* LOAD DEVICE 5) | ORAGE 
CMPB #16,a0441 [LOADED FROM AN RMOS/3/2 ? 

BNE 3$ :BR_IF NOT 

MOV D440 , XXDP 


:GET DEVICE i ee AND NUMBER 
CMPB wr 1S IT A VALID NUMBER 


sNO, DEFAULT TO DRIVE 0 


1$: TST arg? “CHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEO 2$ :BR IF NEITHER 
TYPE 73$ > TYPE ASCIZ STRING 
72$ : :GET OVER THE ASCIZ 
55738: ASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR -(SP) :CLEAR WORD ON STACK 
MOVB - XXDP,, (SP) “GET DRIVE ADDRESS 
TYPOS :TYPE THE ADDRESS 


-BYTE 1 :ONLY 1 CHARACTER 


BYTE ;SUPRESS LEADING ZEROS 
TYPE $CRLF = 
BR 5 “GET NUMBER OF DRIVES 


CZ7RMUBO RMO5/3/2 PERF EXER 
sf VALUE FOR SOF TWARE 


re rr re a ee — 
eee a 
ee ee = ree = 


107 


105737 
001002 
004737 
013737 


ger 


177777 
004400 


001432 


004440 


033226 
001226 


001256 


001256 
001262 


001262 
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SWITCH REGISTER 


001274 


001272 


040154 
040156 


001352 


2$: 


-:75$: 


74$: 


4$: 


5$: 


6$: 


7$: 


-76$: 
$: 


4-1 
“758 
? 


i a TIME THRU HERE ? 
is TYPE ASCIZ STRING 


;GET OVER THE ASCIZ 


4$ 
<CRLF>/TO TEST DRIVE / 


-(SP) 
XXDP, (SP) 

;, 

068 

3g 

7, HALT PROGRAM, 
PC,STKINT 

SENV 


5$ 

hl 
$VECT1,$RMVEC 
$BASE 


6$ 
$BASE , SKMADR 
6$ 


SAUTOB 
PC ,BUSADR 


#STACK SP 
PS 

HZ ,ONESEC 
HOUR 
MINUTE 
SECOND 
INTRVL +2 
PACK 


CFLAG 
DRIVEO+S$F IRST 


DRIVE7+$F IRST 


;CLEAR WORD ON STACK 
7GET DRIVE ADDRESS 
; TYPE DRIVE ADDRESS 
ZONLY 1 CHARACTER 
SS sayy ZERCS 
CIZ STRING 
T OVER THE ASCIZ 
CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF > 


By ON ig A ~~ INTERRUPT 
T MODE 


“NEW VECTOR 
"NEW BASE ADDRESS ? 


:NO 
ZNEW BASE ADDRESS 


_— IN AUTO MODE ? 
: CHECK RH/RM BUS ADDRESS 


;LOAD ADDRESS INTO DRIVER 

:LOAD VECTOR INTO DRIVER 

:CLEAR PERFORMANCE SUMMARY TYPEOUT FLAG 
;START OF AREA TO CLEAR 


;LOOK FOR END OF CLEAR AREA 
7BR IF NOT FINISHED 

;SETUP THE STACK POINTER 

[CLEAR THE PROCESSOR STATUS WORD 
SRESTORE ONE SECOND COUNTER VALUE 
:CLEAR THE HOUR'S COUNTER 
;CLEAR THE MINUTE*S COUNTER 
:CLEAR THE SECOND'S COUNTER 


~ 
2 
7m 
“" 
mn 
~ 
5 a 
wT 
— 
x» 
“ 
— 
nn 
ea 
> 
7) 
9 " 
oO 
x 
— 
< 
rvi 
NAW EWN © 


sRESET $FIRST FLAG FOR DRIVE 


sAUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS 
; JUMPERED FOR 22 OR 32 REGISTERS 


SEQ 0062 


| CZRMUBO RMO5/3/2 PERF EXER 
| GET VALUE FOR SOF TWARE 


eee me me eh ee re ce ed ed ed ed nd ed ed 3 od od = od) od et od od et SY CL 


142 


eh ed A te 
AEE AA Se dat 
WON AUESWN— 

Ww 

N 

oo 

N 


00100 
052737 


L 
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SWITCH REGISTER 


040162 
174 eee 


60600 

egg 
001272 
000050 
000012 


000050 


000074 
005042 


001272 
049162 


001400 
000003 


001400 
030000 
000004 


177777 
177777 


160000 
102072 


SEQ 0065 


S1ZE70: CLR RHEXT :CLEAR RMBAE OFFSET 
001234 BIC #174000,$CPUOP :CLEAR CPU TYPE REGISTER 
MOV ERRVEC, =(SP) “SAVE CONTENTS OF ERROR VECTOR 
c00c04 MOV #2$, ERRVEC ‘SETUP ‘TRAP’ RETURN ADDRESS 
MOV SRMADR RO ‘GET RMCS1 ADDRESS 
ADD #50,R GET REGISTER OFFSET FOR RH70 
MOV * “GET NUMBER OF REGISTERS TO CHECK 
TST (RO) + “TRAP IF NOT A VALID RMBAE 
TST (RQ) + IF NCT A VALID RMCS 
040162 MOV ey RHE XT “LOAD OFFSET FOR (22 REGISTER RH) 
1$: TST (RO) + “TRAP IF NOT A VALID REGISTE 
DEC R] “DONE WITH ALL 32 REGISTERS ; 
BNE 1$ “BR IF NO 
049162 MOV #74 ,RHEXT “LOAD OFFSET FOR RMBAE (32 REGISTER RH) 
2$: MOV #3$, (SP) :SETUP RETURN ADDRESS 
3$: MOV SRMADR ,RO +GET RMCS1 REGISTER 
MOV RHEXT ,R1 iGET RMBAE REGISTER OFFSET 
BEQ % F NONE 
ADD RO,R1 “GET RMBAE REGISTER 
BIS W#A17'A16,(RO)  :SET EXTENDED ADDRESS BITS IN RMCS1 
CMP #3, (R1) “ARE THE EXTENDED BITS SET IN RMBAE ? 
BNE *BR IF NO 
CLR (R1) *CLEAR EXTENDED ADDRESS BITS IN RMBAE 
BIT A17!A16, (RO) “ARE THE EXTEND BITS CLEAR IN RMCS1 ? 
001234 BIS #81T13'B1112,$CPUOP *SET THE 11/70 CPU TYPE CODE 
4$: MOV (SP)+,ERRVEC | ;:RESTORE CONTENTS OF ERROR VECTOR 
=ROUTINE TO DETERMINE BUFFER MAX WORD COUNT AND FUDGE PACK SERIAL NUMBER 
“TO ALLOW BAD SECTOR FILE(DEC144) TO BE READ FROM EACH DRIVE AT 
>LEAST ONE TIME. 
SIZMEM: INC #1 :FIRST TIME THRU HERE ? 
BNE bef ;BR IF NO 
MOV RO >FUDGE MSB'S FOR INITIALIZING PACK S/N 
~ MOV RO. DRIVEO+SPSNM : INIT. S/N FOR DRIVE 0 
MOV RO.DRIVE1+$PSNM : INIT. S/N FOR DRIVE 1 
— MOV O-DRIVE2+$PSNM : INIT. S/N FOR DRIVE 2 
MOV RO.DRIVES+$PSNM : INIT. S/N FOR DRIVE 3 
MOV 0. DRIVE4+$PSNM : INIT. S/N FOR DRIVE 4 
MOV RO. DRIVES+$PSNM : INIT. S/N FOR DRIVE 5 
MOV RO.DRIVE6+$PSNM : INIT. S/N FOR DRIVE 6 
MOV RO.DRIVE7+$PSNM : INIT. S/N FOR DRIVE 7 
JSR PC $S'ZE “SEE HOW MUCH MEMORY ON SYSTEM 
001334 MOV $LSTAV,LSTAD  :SAVE THE LAST ADDRESS 
01642 1S: MOV #1 BUF TBL *LOAD NUMBER OF BUFFERS 
001644 MOV #ENDPGM , BUF TBL + : STARTING ADDRESS OF BUFFER 
001646 MOV STAD,BUFTBL+4 ;LAST ADDR TO BUFFER ALLOCATION TABLE 
160000 CMP LSTAD.#160000  :OVER 28K ? 
BLOS 2$ NO 
001646 MOV #160000, BUF TBL+4- XXDP MAX MEMORY 28K 
001646 2%: SUB #ENDPGM , BUF TBL +4 : SUBTRACT PROGRAM SPACE 
CLC “CLEAR THE 'C' BIT 


rr 0 en te em ne rn re me meme 


oe et ree me we es ee ae ee ee en ee ~~ 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0064 
| 161 005246 006037 001646 ROR BUF TBL +4 ‘CONVERT TO WORD COUNT 

162 005252 162737 000144 001646 SUB #100. ,BUF TBL +4 : SAVE ROOM FOR THE ‘ABS’ LOADER 

163 005260 105737 001150 STB  $AUTOB “RUNNING IN AUTO MODE ? 

164 005264 001403 BEQ 3$ ‘BR IF NO 

165 005266 162737 003000 001646 SUB #1536. .BUFTBL+4 :SUBTRAC] 'XXDP’ LOADER SIZE 

166 005274 023737 001450 001646 38: ‘CMP WRDCNT ,BUFTBL+4 1S MAX WORD COUNT TOO LARGE ? 

167 005302 003406 BLE 4$ R IF NO 

168 005 013737 001646 001450 MOV aI TBL+4,WRDCNT :USE MAX AVAIL MEMORY AS MAX WRD CNT 

169 005312 013737 001450 077362 MOV WKDCNT,PARLST+2 :VALUE FOR THE PARAMETER TABLE 

170 005320 4$: 

172 :SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 

174 005320 005737 037616 LKPAR: TST PWRFELG sRETURNING FROM POWER FAIL ? 

125 005324 001045 BNE SETVEC “BRANCH IF YES 

177 005326 005037 001340 1$: CLR CFLAG -CLEAR CONTROL C FLAG 

178 005332 105737 001150 STB  $AUTOB “RUNNING IN AUTO MODE ? 

179 005336 001040 BNE SETVEC “BR IF YES 

180 005340 104401 077470 TYPE §,ASKPAR “TYPE "CHANGE PARAMETERS ?° 

181 005344 104411 RDLIN “READ THE ENTRY 

182 005346 012600 MOV (SP)+,RO >SAVE ADDRESS OF RESPONSE 

183 005350 005737 001340 TST CFLAG sCONTROL C TYPED ? 

184 005354 001364 BNE i$ “BR IF YES 

185 005356 105710 TSTB  —_ (ROD “WAS RESPONSE A CARRIAGE RETURN (DEFAULT °N’)? 

186 005360 001427 BEQ SETVEC “BR IF Y 

187 005362 105760 000001 TSTB —«-:1(RO) “WAS IT TERMINATED WITH CARRIAGE RETURN ? 

188 005366 001006 BNE 2$ BR 

189 005370 122710 000131 CMPB#*Y, (RO) “WAS IT A *Y* RESPONSE ? 

190 005374 001406 — BEQ ENTPR “BR IF YES 

191 005376 122710 000116 CMPB ss #"N, (RO) “WAS IT A '"N* RESPONSE ? 

192 005402 001416 BEQ SETVEC “BR IF YES 

193 005404 104401 076677 2$: TYPE RADENT *TYPE BAD ENTRY MESSAGE 

194 005410 000746 BR i$ > TRY AGAIN 

19% 005412 012703 077360 ENTPR: MOV #PARL ST RS :PARAMETER TABLE ADDRESS 

197 005416 004737 030700 JSR PC PARENT “GET THE PARAMETER ENTRY 

198 005422 023727 001450 000006 CMP WRDCNT , #6 *1S THE "WRDCNT’ VALUE OK ? 

199 005430 103003 BHIS  SETVEC “BR IF IT IS . 

200 005432 012737 000006 001450 MOV #6,,WRDCNT “SET "WRDCNT' TO THE MINIMUM VALUE 

202 DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 

205 “THE PROGRAM WILL USE. PROGRAM RETURN HERE ON POWER FAIL 

205 005440 004737 023344 SETVEC: JSR PC, CKCLK :START THE CLOCK 

206 005444 004737 040166 JSR PC RMINIT : INITIALIZE THE RM DRIVER 

207 005450 012737 177777 040114 MOV #~1, SAVEFG “SET THE SAVE REGISTERS FLAG 

208 005456 013704 040154 MOV RMADR,R4 “GET RM/RH BASE ADDRESS 

209 005462 012764 000040 000010 MOV #CLR,RMCS2(R4) Cl EAR MASSBUS CONTROLLER 

210 005470 005227 177777 INC #-1 FIRST TIME THRU ? 

211 005474 001407 BEOQ 1$ “BR IF YES 

212 005476 005737 037616 TST PWRFLG “RETURNING FROM POWER FAIL ? 

213 005502 001004 BNE 1$ “BRANCH IF YES 

214 005504 032777 000004 173442 BIT #SwO02,aSWR “TYPEOUT THE DRIVE STATUS TABLE ? 

215 005512 001106 BNE “BR IF NOT 

216 005514 005037 037616 1$: CLR PWRFLG “CLEAR POWER FAIL FLAG 

217 005520 005004 CLR R4 “DRIVE TABLE POINTER 


EE SE Nm ee mm ee et fe em me ee ae =e = 


| CZRMUBO RMOS/3/2 PERF EXER 
GET VALUE FOR SOFTWARE 


218 005522 
219 005526 
220 005532 


224 005552 
225 

226 005554 
227 005560 


231 
232 005572 
233 005576 
234 
235 005600 
236 005604 
237 
238 005606 
239 005612 
240 
241 005614 


263 005724 
264 005730 


010446 


104403 
002 


000 
104401 
105764 
100416 
001020 


105764 
001404 
00006 


1 
104401 
000451 


104401 
000446 


104401 
000416 


104401 
000413 


012737 
104401 
000000 


005204 


104401 


076026 
601203 


075552 
040056 


040046 
075724 
075745 
075633 
076001 


001432 
001432 
076011 


076044 
000005 


076056 


000010 
001203 
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005712 
040046 


005712 
040046 


005712 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 
8$: 


9$: 
10$: 


11$: 


12$: 


SYSTAT 

, SCRLF 
R4,-(SP) 

é 

0 

»~BLNKS4 
DRVSTACR4) 
5$ 

6$ 
DRVTYP(R4) 
3$ 

4$ 

e-NOTRM 
11$ 
s-NOTPRS 
11$ 


UNT OF F 


8$ 


NOT SAF 


8$ 


#$RMO3, 108 
ren? 


#SRMO2 , 10$ 
#5 ,DRVTYP(R4) 


9 
#$RMO5 , 10S 


Ae STATUS HEADING 
7; SAVE R4 FOR TYPEOUT 
+i TYPE DRIVE NUMBER 
3GO TYPE--OCTAL ASCII 
3 TYPE 2 DIGIT(S) 
et a LEADING ZEROS 


+ TYPE BLANKS 
‘CHEEK oRIVE® § STATUS 
“BR IF UNSAFE 
BR IF ONLINE 
SEE IF OFFLINE OR NONE XI STENT 
“BR F NONEXISTENT 
E 
“CHECK NEXT DRIVE 


;DRIVE NOT PRESENT 
; CHECK NEXT DRIVE 


;DRIVE OFFLINE 
;PRINT DRIVE TYPE 


;DRIVE UNSAFE 
;PRINT DRIVE TYPE 


gs At THIS DEVICE ? 
;LOADED FROM THIS DRIVE ? 
:BR IF NO 

;TYPE ‘LOAD DEVICE’ 

:DRIVE ONLINE 

:TYPE 2 BLANKS 

;ADDRESS OF RMO3 MESSAGE 
:1S DEVICE AN RMO5 ? 


:BR IF YES 
sADDRESS OF RMO2 MESSAGE 
:1S DEVICE AN RMO2 ? 


:BR IF YES 
SADDRESS OF RMOS MESSAGE 


:TYPE THE DRIVE TYPE MESSAGE 
;MESSAGE ADDRESS HERE 


; INCREMENT DRIVE NUMBER/TABLE POINTER 
FINISHED ? 


;BR IF NOT 
; CR-LF 


eee mee 
em i te ee rem Ce ee ee ee es ee ee em wee 


SEQ 0065 


— CZRMUBO RMO5/3/2 PERF EXER 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


| 


| 
| 


ow 
S 
Ww 
NN 
™~ 
™m 


mE 


18 006016 


012737 


035226 
40 


2 
177776 
077140 


000007 * 


001336 
006506 


000001 
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001434 
001436 


001436 


000026 


001540 


: INITIALIZE PROGRAM PARAMETERS FOR STARTUP 


STA: 


1$: 


23: 


3$: 


4$: 


7$: 


8$: 


PC 
SENV 

#1,RATIO 
#77777 ,ENDCON 
#27, ENDCON+2 
$AUT9B 


4 

_.* 
on 
ee « -RO 


R 
RO.NEWUNT (R2) 
BC . DRVPRM 
$F IRST (RO) 
#~2,SPACK (RO) 

TPK 


(R3)+,(R2)+ 
R1 
R147 


#1,CFLAG 


TKINT 
POD ve. ENDCON 
#005455, ENDCON+2. 


i INITIALIZE THE KEYBOARD INTERRUPT HANDLER 
SINITIALIZE XFER COUNT (LSB) 


sAPT SCRIPT MODE, THEN MAKE IT RUN 2 MIN. 
“ SPEED UP _TEST 

s INITIALIZE QUICK XFER COUNT(LSB) 

: RUNNING IN AUTO MODE 7? 

START AT 200 ? 

;NO 


:DRIVE # 
{AVAIL TABLE INDEX 

sDRIVEF * 2 

i LOADED FROM THIS DEVICE ? 

: LOADED FROM THIS DRIVE ? 
“DRIVE ON LINE ? 

“LOAD ADDRESS 

CLEAR DPB BLOCK 

“GET DRIVE (MBA) SERIAL NUMBER 


;RETRIEVE BAD SECTOR FILE 
DPB ABAIL QUEUE 


;SETUP COMMAND ‘WT* rn hy DATA AND TES?) 
7SETUP INITIAL PARAMETERS 

a enT DALY INDEX 

sALL DRIVES ASSIGNNED ? 


7NO 
;CLEAR START FLAG 
>; JUMP TO WAIT PARAMETER AND BUFFER LOOP 


;DUMMY "CONTROL C* FLAG 


SEQ 0066 


OE essences 
SE ee ae 


WN COO NAUS WR "OWOWNOWAWPR-» 


NMONMINIMINGNY  @ 3 BR eS 
wis 


56 30 
57 006332 


005711 


C7RMUBO RMOS/3/2 PERF EXER 
MAIN PROGRAM 


001340 
001506 
007006 
025240 


000010 
001532 


001576 


001620 


076155 
020700 


000010 


001554 
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-SBTTL MAIN PROGRAM 


MAIN: 
1$: 


2$: 
3$: 


:CHECK FOR DRIVES TO BE DROPPED 


5$: 
6$: 


7$: 


;LOOK FOR DRIVES TO BE ASSIGNED 
MAIN1: 


1$: 
2$: 


CFLAG 
3$ 
ORDERQ 
2$ 
IDLE 
PC,KSR 


#8.,R3 
ADUNIT,RS 
(R5) 

3$ 

(R5)+ 

R3 

1$ 

MAIN1 
MAVAIL,R1 
(R1) 

5$ 
(R1),(R5) 
7$ 

(R1)+ 

4$ 
MWAIT,R1 
(R1) 

2% 
(R1), (R5) 
7$ 
(R1)+ 

6$ 


) 
PC,CMPRES 
2$ 


#8. ,R5 
R1 
R2 


R5 
NEWUNT (R'5) 
3$ 


wee 
Rs 


eae INTERRUPTED ? 
:BR IF NOT 

; ANY oe IN ORDER QUE ? 
;BR IF NO, ELSE 


:LET ALL DRIVES FINISH ORDER 
:SERVICE THE KEYBCARD 
; !! FOR DEBUGGING !! 


DRIVE COUNTER 

;ADDRESS OF ‘DROP DRIVE’ TABLE 
:SEE IF ENTRY AT PRESENT POSITION 
7BR IF THERE IS ONE 

; INCREMENT TO NEXT TABLE POSITION 
:DECREMENT DRIVE COUNTER 
:BR IF MORE TO CHECK 

:GO CHECK FOR NEW ASSIGNED DRIVES 


ont OF "AVAILABLE bed TABLE 
:IF AT END OF ‘AVAIL’ TABLE ? 


:BR iF YES 

71S DRIVE IN ‘AVAIL’ THE TABLE ? 

;BR IF YES 

ied INCREMENT ‘AVAIL* TABLE ADDRESS 
CONTINUE LOOKING 


sADDRESS OF THE ‘WAIT* ge TABLE 
sAT THE END OF ‘WAIT’ TABLE ? 


“BR IF YES 

“1S DRIVE IN THE "WAIT' TABLE ? 
“NO, INCREMENT ‘WAIT’ TABLE ADDRESS 
“AND CONTINUE LOOKING 


:PUT i: DRIVE*S BLOCK ADDRESS IN RO 


sCR~ 

‘TYPE "DRIVE DEASSIGNED’ 

; TYPE THE DRIVE'S PERFORMANCE SUMMARY 
sTYPE ‘xxee,, ETC’ 

=CLEAR THE "DROP DRIVE’ TABLE ENTRY 
:COMPRESS THE RESPECTIVE TABLE 

:SEE IF ANY MORE DRIVES 


;DRIVE COUNT 

sASSIGN LIST INDEX 

;"AVAIL* INDEX 

sNEW DRIVE INDEX 

:NEW DRIVE IN THIS POSITION 
;BR IF THERE IS 

; INCREMENT R5 

: INCREMENT ASSIGN INDEX 
“DECREMENT DRIVE COUNT 


SEQ 006/ 


een 
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8 566 
109 006572 
110 006574 


001371 
000432 


104491 
104401 
010146 


104403 
002 


001203 
075625 


076411 
001576 


001554 
001554 
040142 
031662 


001530 
00115¢ 


031612 
001620 
001620 


016402 
000006 


001620 
020700 
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BNE i$ ;BR IF MORE DRIVES 

BR MAIN2 ; START OPERATIONS FOR THE AVAILABLE DRIVES 
3$: TYPE » $SCRLF :CRoLP 

TYPE »UNTMSG ;'DRIVE* 

MOV R1,-(SP) :;SAVE R1 FOR TYPEOUT 

+3 TYPE DRIVE NUMBER 

TYPOS :GO TYPE=-OCTAL ASCII 

BYTE 2 77TYPE 2 DIGIT(S) 

> i di erent LEADING ZEROS 

TYPE eASGND *STARTED' 
4$: TST AVAIL (R2) :AT END OF AVAILABLE TABLE 

BEQ 5$ 7BR IF YES 

TST (R2)+ + INCREMENT ey TABLE INDEX 


BR 4$ CONTINUE LOOKING FOR END OF TABLE 


001576 5%: MOV NEWUNT(R5), AVAILER2) ;MOVE ADDR OF DRIVE INTO AVAIi iST 
CLR NEWUNT (R5) ; TAKE DRIVE OUT OF NEW DRIVE TABLE 

001530 BISB ATABIT(R1) ,ASNLST ;SET DRIVE ASSIGNED INDICATOR 
CLR AUTLST ;CLEAR AUTO ASSIGN 


TST (R2)+ : INCREMENT AVAILABLE TABLE POINTER 
BR e$ :LOOK FOR MORE DRIVES 


:GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
: THE "AVAILABLE" QUEUE 


MAIN2: CLR R2 ;START FROM THE FIRST LOCATION 

TSTB ASNLST SANY DRIVES ACTIVE ? 
E $ 7BR IF YES 
TSTB $SAUTOB 7RUNNING IN AUTO MODE ? 
BNE 1$ 7BR IF YES 
001340 MOV #1,CFLAG ;DUMMY "CONTROL C* FLAG 
001352 MOV HZ,ONESEC ;RESTORE ONE SECOND COUNTER VALUE 

CLR HOUR ;CLEAR THE HOUR’S COUNTER 
CLR MINUTE :CLEAR THE MINUTE'S COUNTER 
CLR SECOND ;CLEAR THE SECOND*S COUNTER 
CLR ore ; CLEAR INTERVAL COUNTER 
TYPE eNODRVS ; TYPE ‘NO DRIVES ASSIGNED’ 

1$: JMP $GET42 :GIVE CONTROL TC MONITOR 

2$: TST WAIT (R2) sANY DRIVES WAITING FOR THE BUFFER ? 
BEQ :BR IF NO 
MOV WAIT(R2) RO ;LOAD RO WITH THE DPB ADDRESS 
CLR -(SP) :CLEAR THE STACK FOR BUFFER REQ 
JSR PC ,GE TBUF :CALL TO GET THE BUFFER RT. 
MOV (SP)+,$BUF(RO) ;IF O,BUFFER IS STILL NOT AVAILABLE 
BEQ 4$ >BRANCH IF NO BUFFER AVAILABLE 
CLR $NEXT (RO) 7CLEAR PARAMETER SELECT FLAG 
CLR $SFAIR(RO) :CLEAR THE FAIR FLAG 
JSR PCF ILBUF sFILL THE BUFFER 
JSR PC,GODRIV ;SET COMMAND AND GO 
MOV #ORDERQ,RS ;PUT THE WAIT QUE INTG ORDER QUE 

3$: TST (R5)+ ;QUE AVAILABLE ? 
BNE 3$ ;BR IF NO 
MOV RO,-(R5) ;LOAD THE DPB ADDRESS INTO THE ORDER QUE 
MOV AWAIT ,R1 sREMOVE THE DRIVE FROM THE ‘WAIT' QUE 


ADD R2,R1 :OFFSET THE QUE POSITION 
JSR PC,CMPRES ; COMPRESS THE QUE 


SEQ 0066 
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MAIN PROGRAM SEQ 006% 
111 000742 BR 2$ sBRANCH IF DONE 
112 006602 005722 4$: TST (R2)+ “CHECK THE NEXT QUE 
113 006604 000740 BR 2$ “LOOPING BACK 
115 006606 005737 001506 5$: TST ORDERQ sANY OUTSTANDING ORDERS ? 
116 006612 001075 BNE IDLE “BR IF YES 
118 006614 005002 CLR R2 :CLEAR DRIVE TABLE POINTER 
719 006616 005762 001576 6$: TST AVAIL (R2) “ANY DRIVES WAITING FOR PARAMETERS 
120 006622 001002 BNE 7$ ‘BRANCH IF ANY 
421 006626 000137 007006 JMP IDLE “BRANCH IF NONE 
122 006630 016200 001576 7$: MOV AVATL(R2),RO CONTROL BLOCK ADDR IN RO 
123 006634 005760 000120 TST $N-x; (RO) “PARAMETERS BEEN SELECTED 7? 
| 124 006640 001010 BNE 9$ “BR IF THEY HAVE 
| 125 006642 105760 000026 TSTB  $PACK(RO) -'R* OR "W* COMMAND FOR THIS DRIVE ? 
| 126 006646 001403 BEQ 84 ‘BR IF NO” 
| 127 006650 004737 017140 | JSR PC ,WRTPK “GET DATA PARAMETERS 
| 128 006654 000404 BR 10$ “GET THE BUFFER 
| 130 C06656 004737 017470 8$: JSR PC,GENPAR :GO GENERATE THE PARAMETERS 
| 131 006662 004737 020430 9$: JSR PC LOLPAR “LOAD THE PARAMETERS JUST GENERATED 
132 006666 005046 10$: CLR (SP) “MAKE ROOM ON THE STACK FOR THE BUFFER ADDR 
| 133 006670 004737 016402 JSR me” GE TBUF *GET BUFFER 
134 006674 012660 000006 MOV (SP)+,$BUF (RO) :MOVE BUFFER ADDR TO DPB 
| 135 006700 001416 BEQ 12$ “BR IF 'O' ADDR (NO BUFFER) 
| 136 006702 004737 016772 JSR PCF ILBUF “FILL THE BUFFER 
137 006706 005060 000120 CLR SNEXT (RO) “CLEAR PARAMETER SELECT FLAG 
138 006712 005060 000106 CLR ~$FAIR(RO) “CLEAR THE "FAIRNESS*® COUNT 
139 006716 004737 017050 JSR PC,GODRIV “PUT CURRENT DPB IN DRIVER 
140 006722 012705 001506 MOV #ORDERO,RS sADDRESS OF ORDER QUE IN R5 
141 006726 005725 11$: TST (R5)+ “END OF QUE ? 
142 006730 001376 BNE 11$ *BR IF NOT 
143 006732 010045 MOV RO.-(R5) *PUT BLOCK ADDRESS INTO QUE 
166 006734 000416 BR 15$ > CONTINUE LOOKING 
146 G06736 005260 000106 12$: INC $FAIR(RO) : INCREMENT THE FAIR COUNT 
147 006742 022760 000003 000106 CMP #3,$FAIR(RO)  :THREE TIMES.BUFFER IS NOT AVAILABLE? 
148 006759 101006 BHI 14$ “BRANCH IF NOT OVER THREE TIMES 
149 006752 012705 001620 MOV WAIT RS “LOAD INTO THE WAIT QUE 
150 006756 005725 13$: TST (R5)+ *AN AVAILABLE LOCATION ? 
151 006760 001376 BNE 13$ “BRANCH IF NOT 
152 006762 010045 MOV RO,-(R5) “LOAD INTO WAIT QUE 
153 006764 000402 BR 15$ “REMOVE THE DPB FROM AVAILABLE QUE 
155 006766 005722 14$: TST (R2)+ s INCREMENT INDEX 
156 006770 000712 BR é$ “BRANCH BACK TO FIRE NEXT DRIVE 
157 006772 012701 001576 15$: MOV HAVAIL,R1 > AVAILABLE’ TABLE ADDRESS 
158 006776 060201 ADD R2,R1 “FORM ADDRESS OF LAST ENTRY 
159 007000 004737 020700 JSR PC’ CMPRES “COMPRESS THE TABLE 
: 160 007004 000704 BR 6$ “CONTINUE LOOKING 
| 16¢ ;WAIT FOR A COMMAND TO FINISH 
164 007 012701 001506 IDLE: MOV #HORDERG,R1 “ADDRESS OF THE ORDER QUE IN R1 
165 007012 012100 1$; MOV (R1)+,RO “PUT BLOCK ADDRESS INTO RO 
166 007074 001431 i. ie 4$ “BR IF END OF QUE 
| 167 007016 005760 000016 2$: TST $TATUS (RO) “SEE IF DRIVE FINISHED 


MENG, Peta 
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168 007022 
169 007024 

170 007026 
171 007030 


a a at ml ll tol 
0 09 O29 OO SII GW CNS 
~ 


187 007114 


194 007144 


001775 


000137 


000004 
001316 


001316 
601530 


076063 
023550 
076124 
006142 
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2$ 
TST -(R1) 
MOV R1,=(SP) 
JSR PC,STATIS 
JSR there 


BADS 
JS& PC,ABNRML i SE 


MOV (SP)+,R1 


MOV HAVAIL,R5S 
3$: TST (R5)+ 
BNE 


3$ 
MOV (R1) ,~(R5) 


JSR PC,CMPRES 

JSR PC ,RELBUF 
172046 4$: BIT #SWO2,aSWR 

BNE 

7ST STATIN 

BEQ 5$ 

CLR STATIN 

TST ASNLST 

a) 5$ 

TYPE ~REPHD 

JSR PC,STATPR 

TYPE ~STAR30 

5$: JMP MAIN 


;BR IF DRIVE NOT 


F SNI SHED 
;BACKUP THE QUE POINTER 
; SAVE THE QUE ADDRESS 

ACCUMULATE STATISTICS FOR DRIVE IN RO 
‘ PROCESS END OF COMMAND 
;CLEAR THE BAD TRK/SEC ERROR INDICATOR 
E IF ANY DRIVES HAVE TOO MANY ERRORS 
;1S_ IT END OF PASS ? 
ZRESTORE THE ORDER TABILE INDEX 
:ADDRESS OF THE ‘AVAIL’ TABLE 

a: IT Pe END OF THE ‘AVAIL’ TABLE ? 


‘MOVE. THE DPB INTO THE ‘4VAIL* TABLE 
;COMPRESS THE ORDER QUE 
7RESTORE BUFFER 


ig ao SUMMARY 
:TIME TO TYPE THE PERFORMANCE SUMMARY ~ 


:BR if NOT 
;CLEAR THE INDICATOR 
:ANY DRIVES ASSIGNED ? 


7BR IF NO 
; TYPE PERFORMANCE REPORT HEADING 
: TYPE THE SUMMARY 
TYPE ‘‘enae, - 3: oe 
“ CONT INUE THE L GOP 


SEQ 0070 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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NORD 3 3 tt St 2 2 ot et 
—ODOWNOVPWR-OO 


007159 


007210 


007212 


007254 


032760 
001402 
000137 


032760 


001324 
000016 


100000 
040000 
040000 


013176 
013270 
000002 


013354 


000200 
007634 


910000 
004000 
002000 
001000 
040002 
000004 


001203 


031054 
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:PROCESS THE COMMAND TERMINATION 


PROCES: MOVB (RO) ,UNIT sDRIVE NUMBER FOR ANY ERROR MESSAGES 
TST STATUS (RO) “SEE IF DRIVER SIGNALED AN ERROR 
BM! ERP F ERROR 
002136 BIT WITS, $RMCS1 (ROS *SEE IF ‘SC’ SET 
BEQ BR OT SET 
002136 BIT mits. $RMCS1 (RO) “SEE IF ‘TRE’ SET 
BNE ERPROC IF SET 
002159 BIT wBiT14, $RMDS (RO). -SEE IF ‘ERR’ SET 
BNE ERPROC :BR IF SET 
*NO ERRORS DETECTED IN REGISTERS, DO SOME CHECKING ANYWAY 
1$: JSR PC, CKERR sCHECK ERROR BITS 
JSR PC, CKBUS “CHECK BUS ADDRESS & WORD COUNT 
171724 BIT #SW01,aSWR “DO DATA COMPARE ? 
BNE 2$ “BR IF NO 
JSR PC, CMPAR ; COMPARE DATA W/O ERROR 
2$: RTS PC “RET URN 
= COMMAND TERMINATED WITH AN ERROR ~ PROCESS THE ERROR 
000016 ERPROC: BIT #81107. STATUS (RO) :DONE BIT SET ? 
BEQ ERPR :BR IF COMMAND DIDN'T COMPLETE NORMALLY 
JMP BONE. “PROCESS ERROR WITH ‘DONE’ BIT SET 
:PROCESS COMMAND COMPLETION WITH ‘ERROR’ & "DONE NOT’ BITS 
ERPRC1: 
000016 BIT #81112, $TATUS(RO) :SEE IF DRIVE WAS UNSAFE 
BNE PUNSAF ES 
000016 BIT #BIT11, STATUS (ROS sPARITY ERROR OCCURRED 
BNE UCPAR PR T DID 
000016 BIT W1T10. $TATUS(RO) :FATAL PARITY ERROR? 
BNE FALPAR *BR IF THERE IS ONE 
000016 BIT 981709, STATUS (RO) : TIMEOUT? 
BNE SwTIM YES 
000016 BIT #BIT14'‘BITO1, STATUS (ROD :DRIVE WENT OFFLINE ? 
BNE OF LIN IF IT DID 
000016 BIT wB1T2. STATUS(RO) :PORT REQUES? TIME OUT ? 
BNE RTIM :BR IF IT DID 
RTS BC “ERROR. RETURN 
:DRIVE 1S PERSISTENTLY UNSAFE 
PUNSAF: TYPE »SCRLF :CR-LF ; 
JSR PC LINE “PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM12 *PERSISTENT DEVICE UNSAFE MESSAGE 
JSR CLINE? “PRINT LINE 2 OF ERROR MESSAGE 
JSR PC LINES “PRINT LINE 3 OF ERROR MESSAGE 
JSR SL INES “PRINT LINE 4 OF THE ERROR MESSAGE 
JSR PC, INCTOT " INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE7 “PRINT LINE 7 OF ERROR MESSAGE 
JMP DROP “DROP THE DRIVE 


: UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 


me ee ore re — ———— “ ere ~ — ee ee —s - a . 
a _ — ee ee ee i a ee ae wee —_ - ’ - 
a me ee tA een ----e- 


“7RMUBO RMO5/3/2 
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59 007402 
406 


RARAVASBAVSRARA 


88 007530 


ee 


PERF EXER 


104401 
104401 
104401 
013746 
104403 
002 
000 
004737 
032777 
001401 
000000 
000207 
004737 
104414 
37 


001324 


024724 
100000 


021046 
071053 


C31054 


021046 
071150 


622710 
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171466 


— 


st 
‘ 'UNCORRECTABLE PARITY ERROR’ MESSAGE 
sFINISH PROCESSING THE ERROR 


: CR=LF 
> CR=LF 
: "FATAL PARITY ERROR’ MESSAGE 


;TYPE ‘ON’ 

;TYPE ‘DRIVE’ 

+: SAVE UNIT FOR TYPEOUT 

zz TYPE DRIVE NUMBER 

33G0 TYPE=--OCTAL ASCII 

si TYPE 2 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 

+ INCREMENT TOTAL ERROR COUNT 
ON ERROR ? 


;BR IF NOT 
ZERROR HALT 


:PRINT LINE 1 OF ERROR MESSAGE 


;PRINT LINE 4 OF ERROR MESSAGE 
: INCREMENT TOTAL ERROR COUNT 
:PRINT LINE 7 OF ERROR MESSAGE 


; CR-LF | 
;PRINT LINE 1 OF THE ERROR MESSAGE 
:PRINT OFFLINE MESSAGE 

:PRINT LINE 2 OF THE ERROR MESSAGE 
:PRINT LINE 3 OF THE ERROR MESSAGE 
:PRINT LINE 4 OF THE ERROR MESSAGE 
; INCREMENT TOTAL ERROR COUNT 
:PRINT LINE 7 OF THE ERROR MESSAGE 
;DROP THE DRIVE 


;TYPE LINE 1 OF THE ERROR MESSAGE 
:PRINT PORT TIME OUT MESSAGE 
;TYPE LINE 2 OF THE ERROR MESSAGE 
: TYPE LINE ; OF THE ERROR MESSAGE 
: TYPE LINE 4 OF THE ERROR MESSAGE 
“INCREMENT TOTAL ERROR 


UCPAR: TYPE ,SCRLF 
TYPE  SCRLF 
TYPE »EM19 
BR FALPR1 
:"FATAL' MASSBUS PARITY ERROR OCCURRED 
FALPAR: [YPE ,SCRLF 
TYPE , oc RLF 
TYPE ,EM11 
FALPR1: TYPE »MSGON 
TYPE »UNTMSG 
MOV UNIT, =(SP) 
TYPOS 
«BYTE O 
JSR PC, INCTOT 
BIT #SW15,aSWR 
BEQ 1$ 
HAL T 
1$: RTS PC 
:SOFTWARE TIMEOUT OCCURRED 
SWTIM: JSR PC,LINE1 
DISPLY ,EM13 
JSR PC,LINE2 
JSR PC,LINE3 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC, “LINE? 
RTS PC 
DRIVE WENT OFFLINE 
OFLIN: TYPE ,SCRLF 
SR PC,LINE1 
DISPLY ,EM14 
JSR PC,LINE2 
JSR PC,LINES 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,LINE? 
JMP 
:PORT REQUEST TIMEOUT ERROR 
PRTIM: JSR PC,LINE1 
DISPLY ,EM15 
JSR PC,LINE2 
JSR PC,LINES 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,LINE? 


R COUNT 
-TYPE LINE 7 OF THE ERROR MESSAGE 


EAE OS LL A ES RF I ee Fe a ne me . 


SEQ 007¢ 


ent rte ene p-senetonatnate e 


ee ee LL LOL LLL LLL LL LL LL CT CC: ttt ttt teat ete ta — 
—s 
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= 


MPINMOMIN MMM NINA) AH Aw Sm 


WODONAVLEWN -OVD wr - 


SBIRRRANE 


007632 


147 007760 
148 007766 
149 007770 


150 
151 


164 0 


007774 
0 


: 
160 010032 


165 019050 
166 
167 010054 


000207 
032760 


032760 
eb 


032760 
001402 
000137 
032760 
001002 
000137 
032760 
001402 
000137 
032760 
001402 
000137 


032760 


032760 
001402 
000137 
032760 
001402 
000137 


032760 


000030 
012610 
040000 
012610 
040000 
010624 
040000 
012350 
000400 
011132 
000020 
011310 
000200 
071464 
020000 
011744 
000010 
012072 
000040 
012512 
602000 
012164 
004000 
012216 
001000 
002000 
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RTS PC :RETURN 
>PROCESS COMMAND COMPLETION WITH ‘ERROR’ & ‘DONE’ BITS SET 


000016 DONE: BIT #1104 :B1T03,$TATUS(RO) {UNSAFE OCCURRED 
BEQ 1$ ;BR IF NOT 
JMP UNSAF :REPORT UNSAFE 
002152 1$: BIT #81114 ,$RMER1 (RO) ;UNSAFE OCCURRED 
BEQ 2$ :BR_IF NOT 
JMP UNSAF “REPORT UNSAFE 
002146 2%: BIT #81714, $RMCS2(RO) :1S ‘wCE’ SET ? 
BEQ 3$ ;BRANCH IF NOT SET 
JMP WCKER [WRITE CHECK ERROR 
002150 3$: BIT #81114, $RMDS(RO) ;CHECK ‘ERR’ 
BNE 4$ : SET 
JMP TRFER :PROCESS 'TRE' 
002152 48: BIT #31708 , $RMER1 (RO) :"HCRC' SET? 
BEQ 5$ F NOT 
JMP HCRCER :PROCESS 'HCRC' 
002152 5S: BIT #31704 , SRMERT (RO) :"FMT* SET? 
BEQ 6$ NOT SET 
JMP CKFMT “CHECK FORMAT ERROR 
002152 6$: BIT  - #BITO7, $RMER1(RO) ;"HCE’ SET? 
BEQ 7$ ;BR_IF NOT SET 
JMP CKHCE :CHECK "HCE’ ERROR 
002152 7S: BIT #81713, $RMER1 (RO) ;"OPI" SET? 
BEQ 8$ F NOT SET 
JMP OPIER :REPORT ‘OPI' 
002152 8$: BIT #81T3,$RMER1 (RO) :"PAR' SET? 
BEQ 9$ ;BR IF NOT SET. 
JMP PARER :REPORT *PAR' 
002152 9$: BIT WITS, SRMER1 (RO) ‘WCF* SET? 
BEQ 10$ :BR IF NOT SET 
JMP WCFER “REPORT "WCF ° 
002152 10$: BIT #81710, $RMER1 (RO) :"IAE' SET? 
BEQ 11$ ;BR IF NOT SET 
JMP IAEER =REPORT ‘IAE* 
002152 11$: BIT #81111, $RMER1(RO) ;"WLE' SET? 
BEO 12$ ;BR IF NOT SET 
JMP WLEER :REPORT ‘WLE' 
002152 12%: BIT #3119. SRMER1 (RO) ;"AOQE* SET? 
BEQ 13$ F NOT SET 
002150 BIT #B1T10,$RMDS(RO) ‘LBT' SET? 
BEO 13$ ;BR IF NOT SET 
RTS PC :"AOE' & 'LBT' SET, EXIT 


Ee eR em ne ee Oe ee 


84 
85 
86 
87 010150 
88 010154 
89 
90 


192 010156 
193 010162 


eh ood aed od 4 


228 010346 


032760 
001402 
000137 


005760 


032760 
001006 
032760 


001004 
000137 


000137 
000207 
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¢10000 
012050 
002152 
010156 
040000 
100000 
011256 
012450 


020714 
002202 
002202 
002204 


022626 


022634 
022710 


021046 
071225 


021126 


022600 
000020 
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002152 13%: BIT #BITI2, $RMER1 (RO) sSEE IF "DTE' SET 
BEQ 4$ “BR T 
JMP DTEER “REPORT 'DTE’ ERROR 
14$: TST $RMER1 (RO) SEE IF 'DCK' SET 
BPL 15$ “BR IF NOT 
JMP DCKER “PROCESS 'DCK* 
002200 15$: ~=BIT #BiT14,$RMER2(RO) :"SKI' SET 
BNE + BRANCH IF SKI SET 
002200 BIT #B1T15,$RMER2(RO) SET ? 
BNE 17$ : BRANCH H IF SO (NO, OTHER ERROR) 
JMP DRVER “REPORT ERROR 
16$: JMP SKIER *REPORT SKI ERROR 
17$: RTS PC “EXIT FROM ERROR ANALYSIS ROUT. 
:PROCESS DATA ('DCK') CHECK ERROR 
DCKER: JSR PC. SPOTCK : SEE IF ERROR AT A BAD SECTOR ON THE DISK 
RTS T 1S, DON'T REPORT IT 
010040 CMP SRMEC1 (RO). #0040" -1S POSITION COUNT OVER MAXIMUM ? 
BH! 1$ *BR IF YES 
TST $RMEC1 (RO) “POSITION COUNT 0 ? 
BEQ 1$ “BR IF YES 
TST SRMEC2(RO) * VALUE IN PATTERN REGISTER ? 
BNE 4$ “BR IF YES 
1$: JSR PC,LINE1 > TYPE FIRST LINE OF ERROR MESSAGE 
DISPLY ,EM45 *TYPE *ECC LOGIC ERROR" 
JSR PC,LINE2 “TYPE LINE 2 OF ERROR MESSAGE 
JSR PC, INCTOT > INCREMENT TOTAL ERROR COUNT 
061330 MOV #3 RETRY “RETRY COUNT 
JSR PC. $RETRY =RETRY THE COMMAND 
BR | *RETRY WAS NOT SUCCESSFUL 
JSR PC, LINE6C “TYPE LINE 6C OF ERROR MESSAGE 
BR 3$ iF INISH THE ERROR REPOR 
2$: JSR PC,LINE6D TYPE LINE 6D OF ERROR MESSAGE 
3s: JSR PC LINE? “TYPE LINE 7 OF ERROR MESSAGE 
RTS RETURN 
:THE VALUES IN THE ECC REGISTERS ARE CORRECT, REPORT 'DCK* ERROR 
4$: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY .EM “DATA CHECK ERROR 
DCKER1: JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
JSR PC.LINE3 “PRINT LINE 5 OF ERROR MESSAGE 
JSR PC,LINE4 sPRINT LINE 4 OF ERROR MESSAGE 
JSR PC. PRTBAD — IF BAD SECTOR TO BE PRINTED 
001326 MOV #BIT15'BIT12 pitbee AASK >LOAD ERROR MASK 
002152 BIT #B1T12'BIT ate SRMERI(RO) :CHECK 'DTE" & TECH 
BNE 1$ “BR IF SET 
JSR PC,LINE6 “PRINT LINE 6 OF ERROR MESSAGE 
BR “FINISH THE ERROR REPORT 
001330 1$: MOV #16. RETRY “RETRY COUNT 
CLR R1 *R1 IS OFFSET CODE POINTER 


SEQ 0074 
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Ke. 


264 010546 
265 


277 010622 
278 
279 


280 

281 010624 
282 010632 
283 010634 


284 010640 


285 010644 


032760 
001034 
004737 


104414 
005037 


¢17050 
000016 
000200 
024724 


001326 
010100 
001330 
002414 

00002 


0 
015766 
070340 


023132 


015352 


022620 
022536 


022634 


022612 
024604 


00000 
0133572 
001357 


— 


024724 
075126 
022710 


100000 


021046 
071331 
001326 
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000016 


002152 
002152 


001331 


070325 
0013350 


001356 


002152 WCKER: 


14$: 


4$: 


5$: 
6$: 


7$: 
8$: 


9$: 


10$: 
11$: 


12$: 
13$: 


RTS 


PC,GODR ;RETRY 
$1TATUS ( ; TEST FOR DONE 
2 i IF NOT DONE 
R IF yt ERROR 
E IF COMMAND TERMINIATED NORMALL Y 


lV 
RO) 


10$ 
> ie » STATUS (RO) 


IF 
PC, INCTOT VIN Net haat TOTAL ERROR COUNT 
, LINSM : DIFFERENT ERROR DURING RETRY’ 
ERPRC1 ;SEE WHICH ERROR 
MASK , $RMER1 (RO) : LOOK AT CURRENT ERROR 


IF DIFFERENT ERROR 
#B1T12!B1T6, sree (RO) *"ECH’ OR 'DTE’ STILL SET ? 
7$ :BR IF NEITHER SET 
RETRY+1 SINCREMENT RETRY COUNT 
ee “DONE ? 


;BR IF NOT 
R1 ; INCREMENT TABLE INDEX 

SF cGaR)) Sn ;OFFSET CODE 

9$ ;BR IF END OF OFFSET TABLE 
i NEW RETRY LIMIT 


#2,RETRY 
PC \OFFST OF FSET 
GENDPB+$TATUS SEE IF FINISHED WITH OFFSET 
2$ “BR IF NO ERROR PERFORMING OFFSET 
PC, LINES *PRINT LINE 8 OF ERROR MESSAGE 
PC. INCHRD > INCREMENT *HARD’ ERROR COUNT 
PC, INCTOT > INCREMENT TOTAL ERROR COUNT 
PC,LINE7 -PRINT LINE 7 OF E SSAGE 
PC“ PRTBAD “PRINT THE BAD S 

$ >CLEAN UP 
PC,LINE6B *PRINT LINE 68 OF ERROR MESSAGE 
PC, LINE5B “PRINT LINE 5B OF THE ERROR MESSAGE 
PC, INCSOF ; INCREMENT *SOFT* ERROR COUNT 
PC_ECC : THE ERROR USING ECC AND CHECK IT 
11$ COMPARE THE BUFFER 
PC.LINE6D :PRINT LINE 6D OF ERROR MESSAGE 
6$ Z INCREMENT ERROR COUNT 
PC,.LINE6A PRINT LINE 6A OF ERROR MESSAGE 
PC, INCSOF STINCREMENT "SOFT" ERROR COUNT 
#1 FRSTER *SET PROCESSING "DCKER' INDICATOR 
PC. CMPARD *COMPARE THE BUFFER 
FRSTER+1 “ERROR IN COMPARE ? 
13$ CH IF ERROR 
PC, INCTOT : INCREMENT TOTAL ERROR COUNT 


,LIN9G : "DATA COMPARE OK" MESSAGE 
Te cael PRINT LINE 7 OF ERROR MESSAGE 


;WRITE CHECK ERROR PROCESSING 


BIT 
BNE 


JSR 
DISPLY 
CLR 


i camel tF fas IF "DCK* SET ALSO 
PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
,EM23 :PRINT WCE & DCK NOT 

MASK ; CLEAR ERROR MASK 


Ae a oe er eee ee 


aE 
—— ee set 


288 010650 
0654 


303 010754 
304 
305 oieeee 


UR ROAR RUOROAROROR 


WON 
oOfros 


_ CZRMUBO RMOS/3/2 PERF EXER 
~ MAIN PROGRAM 


022626 
022634 
02077: 


072157 


021126 


001331 
022626 


0013351 
0013350 


100000 
000100 
022626 
023132 


024724 
022710 


020714 


023216 
016012 
021046 
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001330 


010764 
002146 


010764 


002152 
001330 


001331 
002152 
002152 


2$: 


3$: 


4$: 


8$: 


9$: 
10$: 


11$: 


;REPORT 
HCRCER: 


JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 

JSR PC, LINES :PRINT LINE 3 OF ERROR MESSAGE 

JSR pC. LINES PRINT LINE 4 OF ERROR MESSAGE 

JSR PC, LINES “PRINT LINE 5 OF ERROR MESSAGE 

JSR PC, INCTOT “ INCREMENT TOTAL ERROR COUNT 

MOV #3 RETRY “RETRY LIMIT 

JSR PC $RETRY “RETR THE OPERATI 

BR 1 “RETRY UNSUCE SSF UL 

JSR PC, LINE6C “PRINT LINE 6C OF ERROR MESSAGE 

BR FINISH PROCESSING THE ERROR 

‘SR PC,LINE6D “PRINT LINE 6D OF ERROR MESSAGE 

BR 1 “FINISH PROCESSING THE ERROR 

JSR PC, SPOTCK “SEE IF ERROR AT BAD SECTOR ON THE DISK 

BR 118 ‘EXIT IF AT BAD SECTOR ON DISK 

JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 

MOV HEM22 .4$ ASSUME THAT EM22 WILL BE PRINTED 

BIT #BIT14, SRMCS2(RO} {Did WCK’ ALSO SET 

MOV HEM37,4% “ME SSAGE FOR "DCK’ AND ‘WCK* NOT DURING 
“WRITE CHECK 

DISPLY > TYP ERROR 

.WORD 0 “MESSAGE ADDRESS GOES HERE 

JSR PC,LINE2 “PRINT LINE 2 OF ERROR MES 

JSR PC,LINE3 PRI INE 3 OF ERROR MESSAGE 

JSR PC,LINES “PRINT LINE 4 CF ERROR MES 

JSR PC,.LINES “PRINT LINE 5 OF ERROR MESSAGE 

BIT #81106, $RMER1 (RO) *ECH SET ALSO ? 

BEQ 10$ :FINISH PROCESSING THE ERROR 

MOV #16. ,RETRY *RETRY LIMIT - 16 (10) 

JSR PC, GODRIV *RETRY THE COMMAND 

TST STATUS (RO) =COMMAND FINISHED ? 

BEQ 7$ ;BR IF NOT 

BMI 8$ *BR IF ERROR ON COMMAND 

INCB —sRETRY#1 = INCREMENT RETRY COUNT 

JSR PC,LINE6C :PRINT LINE 6C OF ERROR MESSAGE 

BR 10$ FINISH ERROR PROCESSING 

INCB —sRETRY+1 : INCREMENT RETRY COUNT 

(MPR so RETRY.RETRY+1 ss: DONE 2 

BEQ 1$ FAT RETRY LIMIT 

BIT WBIT1S. SRMERI(ROS "DCK" SET 

BEQ . F NOT ~ DIFFERENT ERROR 

BIT #B1T06, $RMER1 (RO) "ECH' ALSO SET 

BNE 6 BR IF if IS, RETRY oe 

JSR PCL INE6C “PRINT LINE 6C OF ERROR MESSAGE 

BR 10$ :EINISH PROCESSING ERROR 

JSR PC,LINES “PRINT LINE 8 - "DIFFERENT ERROR ° 

JSR PC, INCTOT sNCREMENT TOTAL ERROR COUNT 

JSR PC,LINE7 “FINISH THE ERROR MESSAGE 

RTS PC RETURN 

"HCRC' ERROR 

JSR PC, SPOTCK :SEE IF ERROR AT BAD SECTOR 

BR 3$ “EXIT IF IT IS 

JSR PC,READDR “READ ERROR SECTOR HEADER 

JSR PC ,READHD “GET THE HEAD INFORMATION 

JSR PC,LINE1 “PRINT LINE 1 OF ERROR MESSAGE 


SEQ 0076 


341 011154 
342 011160 
343 011164 
344 011170 
345 011174 
351 011200 
352 011204 
353 011210 
354 011216 
355 011224 
356 011230 
357 011232 
358 011236 
359 011242 
360 011244 
361 011250 
362 011254 
363 
364 
365 
366 011256 
367 011262 
368 011 
369 011 
370 011276 
011302 
372 011306 
373 
374, 
375 
376 011310 
377 011316 
378 011320 
379 
380 011324 
381 011330 
382 011334 
383 011342 
384 011344 
385 
386 011350 
387 011354 
388 011356 
389 011362 
390 011366 
391 011372 
392 011376 
398 011402 
399 011406 
400 011412 
401 011416 
402 011424 
403 011432 
04 011436 
405 011440 
406 011444 


1 
407 011450 


Soy RMO5/3/2 PERF EXER 
PROGRAM 


071204 
) 


00000 
016104 


022626 
022710 


022634 
022710 


022710 


000400 
011132 
023216 
016012 
000400 
012244 
020714 


021046 


00000 

016104 
022626 
022710 


mM 
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C01326 
001330 


002152 


0703556 


001326 
001330 


1$: 


2$: 
3$: 


; REPORT 


DRVER: 


DISPLY ,&M20 REPORT ‘HCRC* 

JSR soa t ;PRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINE :PRINT LINE 3 OF FRROR MESSAGE 
JSR PC.LINES ;PRINT LINE 4 OF ERROR MESSAGE 
JSR PC,LINESA ;PRINT THE HEADER INF ORMAT 

JSR PC, INCSOF ; INCREMENT ‘SOFT’ ERROR COUNT 
JSR PC, INCTOT “ INCREMENT TOTAL ERROR COUNT 
MOV #B1T8,MAS ;SET ERROR MASK 


:RETRY LIMIT 
R TRY COMMAND 
BR 2$ sRETRY NOT SUCESSFUL 
;PRINT LINE 6C OF ERROR ME SSAGE 
= PC. LINE? ho LINE 7 OF ERROR MESSAGE 


“PRINT LINE 6D OF ERROR MESSAGE 


JSR »LINE? “PRINT LINE 7 OF ERROR MESSAGE 
RTS PC ; RETURN 
DRIVE ERROR 
JSR PC,LINE1 ;PRINT ey 1 OF ERROR MESSAGE 
DISPLY ,EM350 :REPORT DRIVE ERROR 

R PC,LINE :PRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINES ;PRINT LINE 3 OF ERROR MESSAGE 
JSR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
JSR PC, LINE? PRINT LINE 7 OF ERROR MESSAGE 
RTS PC RETURN 


:PROCESS FORMAT (‘FER’) ERROR 


CKFMT: 


1$: 


2$: 


3$: 


gIT #0178, SRMERI (RO) 5 *HERC* SET ON ORIGINAL ERROR ? 
JMP HCRCER “REPORT HCRC ERROR 
JSR PC ,READDR GET CORRECTED TRACK & SECTOR ADDRSSES 


JSR PC ,READHD ;READ HEADE 
ie #8118, GENREG+RMER1 ;"HCRC* SET WHEN HEADER READ? 


:BR IF ‘HCRC' SET 
JMP FMTER :NO, ERROR IS "FMT" ONLY 
JSR PC, SPOTCK 7 SEE 


Th BAD SECTOR ON THE DISK 


SR CLINE ;PRINT LINE 1 OF ERROR MESSA 
DISPLY ,EM24 ;HEADER READ ERROR - FMT BIT DROPPED UP 
JSR C,LINE2 PRINT LINE 2 OF E SSA 


;PRINT LINE 3 OF ERROR MESSAGE 
;PRINT LINE 4 OF ERROR MESSAGE 
;DISPLAY HEADER 

: INCREMENT SOFT ERROR COUNT 

; INCREMENT LN pag ERROR COUNT 


: E rect 
BR 4$ ;RETRY NOT SUCESSFU 
JSR PC,LINEOC :PRINT LINE 6C OF ERROR MESSAGE 
a ay “LINE? PRINT LINE 7 OF ERROR MESSAGE 


ee rm eo en ne em em ee —_ _ 


SEQ 007/ 


MAIN PROGRAM 


408 011452 
409 011456 
ov 011462 


, a ee 


MVIiWVIWIVYD VMI 


RS 


454 011670 
455 
456 
457 
458 011672 


463 011716 


468 011742 


004737 
004757 
000207 


032760 


000137 


CZ7RMUBO RMO5S/3/c PERF EXER 


022634 
022710 


000400 
011132 
023216 
016012 
000400 
101066 
150000 
002172 
011672 


101066 
012506 


020714 


021046 
071456 


000 
016104 


022626 
022710 


022634 
022710 


021046 . 


072775 


015650 
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002152 


070356 


101066 
101066 


001326 
001330 


4$: JSR 
5$: RTS 
;PROCESS HEADER 
CKHCE : 


1$: JSR 


e$: 


3$: JSR 
BR 


4$: JSR 


53: JSR 
6$: RTS 


PC,LINE6D sPRINT LINE 6D OF ERRCR MESSAGE 
PC,LINE? ;PRINT LINE 7 OF ERROR MESSAGE 

PC ;RETURN 

COMPARE (‘HCE’) ERROR 

#B1T8,$RMER1(RO) sHCRC SET ON ORIGINAL ERROR ? 
1$ ;BR IF NOT SET 

HCRCER ;REPORT HEADER CRC ERROR 


PC ,READDR :GET CURRENT SECTOR & TRACK ADDRS 

PC -READHD “READ HEADER OF CURRENT SECTOR 

#8178, GENREG+RMER} oi HERE SET ? 

CYLNDR,-(SP) | :;PUSH CYLNDR ON STACK 

#150000,CYLNDR :LLEAR FORMAT, MFG AND USER BITS FROM HEADER 
$RMDC (RO) . CYLNDR {CORRECT CYLINDER ? 

POSER “REPORT POSITIONING ERROR 


(SP)+,CYLNDR 3zPOP STACK INTO CYLNDR 
HCEER sREPORT ‘HCE' ERROR 


PC ,SPOTCK ;SEE IF ERROR AT BAD SECTOR 

$ sEXIT IF IT IS 
PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
»EM25 ;HEADER READ ERROR - ‘HCE’ SET 
PC,.LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 
PC,LINES ;PRINT LINE 3 OF ERROR MESSAGE 
PC,LINES ;PRINT LINE 4 OF ERROR MESSAGE 
PC,LINESA :PRINT LINE 5 OF ERROR MESSAGE 
PC, INCSOF ; INCREMENT SOFT ERROR COUNT 

PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
#8117 ,MASK :SET ERROR MASK 

#3, RETRY sRETRY LIMIT 

PC, ,SRETRY ;RETRY THE COMMAND 

sRETRY NOT SUCESSFUL 

PC,LINE6C ;PRINT LINE 6C OF ERROR MESSAGE 
7 athe ie LINE 7 OF ERROR MESSAGE 
PC,LINE6D 7PRINT LINE 6D OF ERROR MESSAGE 
peneer rh 5 7 OF ERROR MESSAGE 


;REPORT POSSIBLE POSITIONING ERROR 


POSER: 


PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
,EM51 | ;PROGRAM DETECTED POSITIONING ERROR 
PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 

PC ,LINE5C ;PRINT LINE 3C OF ERROR IiESSAGE 
(SP)+,CYLNDR ;;POP STACK INTO CYLNDR 

PC,LINESA ;PRINT LINE 5A OF THE ERROR MESSAGE 
PC, INCMIS : INCREMENT MISPOSITIONING COUNT 

PC, INCTOT : INCREMENT TOTAL ERROR COUNT 
PC,LINE7A ;PRINT LINE 7A OF ERROR MESSAGE 
oe | wae 


me me me me eee ee - 
Oe ee ee te ee me ee ee em _—— 


SEQ 0078 


_—— ee me ee eee - isi — 


—— 


2042 
489 012046 
490 
491 
492 
493 012050 


See ete epee be pepape gee 
Doe NFU eOwe 
ee ee we ee eed eed od oS 
ANI & & Nu 
RRO ONMAN 


WE WN © 
OoOQOO00°O 


¢7RMUBO —-"e PERF EXER 
MA! N PROGR 


020714 
021046 


071653 
021126 
021566 
36 
02472 
pee 


00000 
016104 


022626 
022710 


022634 
022710 


020714 


. 022626 


022710 
022634 


022710 


B 7? 
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001326 
001350 


001326 
0013350 


;REPORT 
OPIER: 


OPIER1: 


1$: 


REPORT 


DTEER: 


;REPORT 
PARER: 


*OP]* ERROR 

JSR PC, SPOTCK 
RTS PC 

JSR PC,LINE1 
DISPLY ,EM31 

JSR PC,LINE2 
JSR PC,LINES 
JSR C.LINES 
JSR PC, INCTOT 
MOV #B1T13,MASK 
MOV #3, RETRY 
JSR PC, SRETRY 
BR 1$ 

JSR PC,LINE6C 
JSR PC,.LINE? 
RTS PC 

JSR PC,.LINE6D 
JSR PC,LINE7 
RTS PC 

"DTE* ERROR 


te 4g » SPOTCK 
JSR PC,LINE1 


DISPLY ,E 

JMP DCKER1 
*"PAR’ ERROR 

JSR PC LINE 
ISPLY ,EM33 . 
SR C,LINE2 

JSR C,LINESE 


JSR PC .S$RETRY | 
BR 2$ 


JSR PC, LINE6C 
JSR PC.LINE? 


JSR PC,LINE6D 
1$ 


"IAE' ERROR 
JSR PC,LINE1 
Siar. y¥: , 


JSR PC, INCTOT 
JSR = ail 


BAD SECTOR 
ERROR MESSAGE 
ERROR MESSAGE 


BBA Bax 


NT 
PRINT LI 
: INCREMENT | TOTAL ERROR COUNT 


;ERROR MASK 
;RETRY LIMIT 


THE COMMAND 
ETRY UNSUCESSFUL 


;PRINT LINE 6C OF ERROR MESSAGE 


PRINT LINE 7 OF ERROR MESSAGE 


PRINT LINE 6D OF ERROR MESSAGE 
a" 7 OF ERROR MESSAGE 


+SEE IF ERROR AT BAD SECTOR 
sRETURN IF IT IS 
SPRINT Bane 1 OF ERROR MESSAGE 


*D 
ZFINISH PROCESSING THE "DTE' ERROR 


:PRINT “* 1 OF ERROR MESSAGE 
;REPORT 


PRINT LINE. 2 OF ERROR MESSAGE 
;PRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 CF ERROR MESSAGE 
; INCREMENT TOTAL ERROR COUNT 


[ERROR MASK 
RETRY LIMIT 


ETRY COMMAND 
>RETRY UNSUCESSFUL 
;RETRY SUCESSFUL 
aie LINE 7 OF ERROR MESSAGE 


sEXI 
:PRINT LINE.6D OF ERROR MESSAGE 
;F INISH ERROR MESSAGE 


sPRINT LINE 1 OF ERROR MESSAGE 
:REPORT ‘IAE' 

:PRINT LINE 2 OF ERROR MESSAGE 
LINE 3F OF RROR COUNT 


SEQ 0079 


CZRMUBO RMO5/3/2 PERF EXER 
MAIN PROGRAM 


539 012250 


556 012306 
557 012312 
558 012316 
559 012322 
560 012326 
567 012332 
568 012336 
569 012342 
570 012346 
571 

572 

573 

574 012350 
575 012354 
576 012360 
577 012364 
578 012370 
579 012374 


588 012436 
589 012442 
590 012446 
591 
592 
593 
594 012450 


021046 


022710 


021046 


022710 


021046 
07 


022710 


021046 


131400 
000003 
001326 
016104 
022626 


022634 
022710 


021046 


. 
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002146 
001330 


:REPORT 'wWLE' ERROR 

WLEER: JSR PC,LINE1 :PRINT LINE | OF ERROR MESSAGE 
DISPLY ,EM36 “REPORT 'WLE' 
JSR PC ,LINE2 ‘PRINT LINE 2 OF ERROR MESSAGE 
JSR PC; INCTOT “ INCREMENT TOTAL ERROR COUNT 
JSR PC SLINE7 “PRINT LINE 7 OF ERROR MESSAGE 
RTS PC : RETURN 

:REPORT FORMAT ERROR 

FMTER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM26 “FORMAT ERROR 
JSR PC LINE? :PRINT LINE 2 OF ERROR MESSAGE 
JSR PC{LINES :PRINT LINE 3 OF ERROR MESSAGE 
JSR C{LINES :PRINT LINE 4 OF ERROR MESSAGE 
JSR C{LINESA :PRINT LINE 5A OF ERROR MESSAGE 
JSR PC; INCTOT : INCREMENT TOTAL ERROR COUNT 
JSR PC. LINE? “PRINT LINE 7 OF ERROR MESSAGE 

REPORT HEADER COMPARE ERROR 

HCEER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM27 :HEADER COMPARE ERROR 
JSR PC .LINE2 [PRINT LINE 2 OF ERROR MESSAGE 
JSR PC.LINES [PRINT LINE 3 OF ERROR MESSAGE 
JSR PC,LINES :PRINT LINE 4 OF E SSAGE 
JSR PC,LINESA :PRINT LINE 5A OF ERROR MESSAGE 
JSR PC. INCTGOT S INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE? :PRINT LINE 7 GF ERROR MESSAGE 
RTS PC : RETURN 


:PROCESS CONTROL/INTERFACE TRANSFER ERROR 


TRFER: JSR PC .LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EF~0O :RH/RM CONTROLLER OR UNIBUS TRANSFER ERROR 
JSR PC i INE2 *PRINT LINE 2 OF E MES 
JSR »LINES PRINT LINE 3 OF E MES 
JSR LINES RIN T LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT REMENT TOTAL ERROR COUNT 
BIT boils ielris:e1rdiai'8, SRMCS2(RO) :"DLT"."UPE’, "MXF*, 
BEQ 2$ :BR IF NONE 
MOV #3,RETRY “RETRY LIMIT 
CLR MASK *CLEAR ERROR MASK 
JSR PC, SRETRY “RETRY THE OPERATION 
BR *RETURN HERE IF RETRY UNSUCESSFUL 
JSR PC,LINE6C *PRINT LINE 6C OF ERROR MESSAGE 
BR 2$ *FINISH THE E REPORT 
1$: JSR PC LINE6D *PRINT LINE 6D OF ERROR MESSAGE 
2%: JSR PC. SLINE7 “PRINT LINE 7 OF ERROR MESSAGE 
:PROCESS 'SKI' ERRORS 
SKIER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 


SO EE ee Fm Re | et ee te ee ee ee ere ee eee 


SEQ 0080 


*"MDPE* SET ? 


Sort A =—-* PERF EXER 
MAIN P 


595 012454 
rs 012460 


01 
602 012510 


606 012512 


012722 


012724 
012730 


012732 
012736 


a. 4 


104414 


105737 
001013 
004737 
104414 


072737 


015650 


pe ieee 


OW? 


00004 
016104 


022626 
022710 


022634 


021046 


016104 
022626 
022634 
022710 
040000 
015650 


001356 


021046 
072435 
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0013350 
001326 


002200 


001326 
001330 


002200 


;REPORT 


WCFER: 


1$: 
2s: 


DISPLY ,EMS5O 

JSR PC,LINE2 

JSR PC LINE 38 
JSR , INCTOT 


;*SKI' ERR 


;PRINT LINE ¢ OF ERROR MESSAGE 


; OR COUNT 
:PRINT J 7A OF ERROR MESSAGE 
;RECAL IBRATE 


WRITE CLOCK FAILURE (‘WCF") 


JSR PC,LINE1 

DISPLY 3EM34 

JSR C,LINE2 

JSR PC. »LINE3A 
JSR PC,LINE4 

JSR PC, INCTOT 


BR 
JSR PC,LINEGC 
JSR a2 LINE7 


JSR PC,LINE6D 
1$ 


;PROCESS DRIVE UNSAFE ERROR 


UNSAF : 


3$: 


:REPORT 
NOMTCH: 


JSR PC,LINE1 
D -E 


ISPLY ,EM60 
JSR C.LINE2 
JSR -LI 


2 
MOV #B1T14 MASK 
MOV #3,RETRY 
JSR PC ,SRETRY 
BR 1 
JSR PC,LINE6C 
2$ 


JSR PC,LINE6D 


PC 
JSR PC ,RECALT 
PC 


BIT #B1T14,$RMER2(R 
BN $ 


PC,LINE? 
BIT wild, "SRMER2 (ROS 


;PRINT cae 1 OF ERROR MESSAGE 
;RE WRITE CLOCK FAILURE 
PRINT "UNE OF ERROR MESSAGE 
:PRINT LINE < OF ERROR MESSAGE 
;PRINT RROR MESSAGE 
OR COUNT 

CTOR TO BE PRINTED 
ERROR MASK 
: eRE TRY THE COMMAND 

;RETURN HERE IF RETRY UNSUCESSFUL 
SPRINT LINE 6C OF ERROR MESSAGE 
:PRINT LINE 7 OF ERROR MESSAGE 


;PRINT LINE 6D OF ERROR MESSAGE 


;PRINT LINE 1 OF ERROR MESSAGE 
; UNSAFE 


; CONTINUE WITH gs REPORT 
PRINT LINE 6D OF ERROR MESSAGE 
T LINE 7 oF ERROR MESSAGE 
; “ft HECK “SKI* AGAIN 


RETURN 
:RECALIBRATE 
;RETURN 


AN ‘UNKNOWN’ DATA PATTERN 
TSTB FRSTER ~ 
BNE 1$ 


JSR PC,LINE1 
DISPLY ,EM43 


sFIRST ERROR IN THE SECTOR ? 

: IF NOT OR IF PROCESSING "DCKER" 
: TYPE LINE 1 OF ERROR MESSAGE 
"CAN'T MATCH DATA WITH PATTERN" 


EE De 8 ee ee ee Oe ee ee ~- : ee ms ee se ee, oe 


SEQ 0081 


652 012742 


677 013174 
678 
679 


680 
681 015176 


690 36 
691 013242 
692 013246 


004737 


ee 


CZ7RMUBO RMO5/3/2 PERF EXER 
MAIN PROGRAM 


021126 
021574 
022236 


072435 


023144 
075554 


023144 
001203 


023144 
075554 


023144 
001205 


025144 
075554 


023144 
001203 


023144 
075554 


023144 


060000 
177400 
002152 
002200 
021046 
072502 


021126 
021566 


MACRO V04.00 4-APR-8' 


001370 
000024 


001370 


002136 
002146 


1$: 
2$: 


3$: 


CKERR: 


1$: 


Re 
01:42:23 PAGE 1211 


JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC, LINE 3A “PRINT LINE 3A OF ERROR MESSAGE 
JSR PC, LINEG “PRINT LINE 4 OF ERROR MESSAGE 
BR 2$ “CONTINUE PROCESSING ERROR 
DISPLY ,EM43 :*CAN'T MATCH DATA WITH PATTERN’ 
DISPLY  |$CRLF * CRLF 
DISPLY ,LIN9I “HEADER FOR DATA PRINTOUT 
MOV R1,=(SP) “ADDRESS OF WORD 1 
JSR PC, LINOCT “TYPE WORD 1 
DISPLY KS2 “TYPE 2 BLANKS 
V (R1)+,=(SP) “ADDRESS OF WORD 1 
SR PC,LINOCT i TYPE WORD 1 
DISPLY ,$CRLF *CRe 
V R1,=(SP) ‘ADDRESS OF WORD 2 
JSR PC, LINOCT ;TYP E WORD 2 
DISPLY S2 > TYPE 2 BLANKS 
V (R1)+,=(SP) “ADDRESS OF WORD 2 
JSR PC,LINOCT “TYPE WORD 2 
DISPLY ,$CRLF * CRLF 
V R1,=(SP) : ADDRESS OF WORD 3 
JSR PC,LINOCT ;TYPE WORD 3 
DISPLY NKS2 : TYPE 2 BLANKS 
V (R1)+,=(SP) sADDRESS OF WORD 3 
JSR PC, LINOCT “TYPE WORD 3 
DISPLY ,$CRLF > CR-LF 
V R1,=(SP) “ADDRESS OF WORD 4 
SR PC LINOCT = TYPE WORD 4 
DISPLY , $2 “TYPE 2 BLANK 
MOV (R1)4,=(SP) *ADDRESS OF WORD 4 
JSR PC,LINOCT > TYPE WORD 
DISPLY .$CRLF = CR=L 
D #<252.%2.>,R1  : INCREMENT BUFFER POINTER 
UB #256. .CMCNT “ADJUST WORD COUNT FOR MATCH 
81'B a. , SCODE (RO) HEADER OPERATION INVOLVED ? 
ADD #4,R1 *ADJUST BUFFER ADDRESS 
SUB #2, CMCNT “ADJUST WORD COUNT 
CLR R2 “CLEAR “WORDS TO COMPARE’ COUNT IN R2 
MOVB #1. FRSTER “SET "NOT FIRST ERROR’ INDICATOR | 
MOVB #1, FRSTER+1 >SET ERROR FOUND INDICAT 
MOV CMPLMT.LIMIT | :RESET THE COMPARE ERROR “TYPEGUT LIMIT 
RTS PC RETURN 
-CHECK ERROR BITS IN THE RH/RM REGISTERS 
BIT #60000, $RMCS1 (RO) :SEE IF ‘TRE’ OR "MCPE" SET 
BNE 1$ . T EITHER SET 
BIT #177600, $RMCS2(RO) -SEE IF ERROR BITS IN CS2 SE! 
BNE 1$ *BR IF ANY SET 
TST SRMER1 (RO) > ANY BITS SET IN ERI 
BNE “BR IF ANY SET 
TST SRMER2 (RO) : ANY BITS SET IN ER2 ? 
BEQ $ “BR IF NONE SET 
JSR PC,LINE1 “PRINT LINE 17 OF ERROR MESSAGE 
DISPLY ,EM44 “ERROR BITS SET. "SC OR "TRE NOT SET 
JSR PC, LINE2 “PRINT LINE 2 OF ERROR MESSAGE 
JSR PC LINES “PRINT LINE 3 OF ERROR MESSAGE 


SEO 008. 
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710 
711 
712 
713 
714 


693 Ol eS2e 
13256 


513962 
3266 


013270 


013332 
0135356 
613342 
013346 
013352 


eee cen 


000207 


022236 
024724 
022710 


002140 
900020 


000006 
002142 


021046 


022710 
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JSR C,LINE4 

JSR PC, INCTOT 

JSR PC,LINE7 
2$: RTS PC 


;PRINT LINE 4 OF ERROR MESSAGE 
‘ BNINT MENT TOTAL ERROR COUNT 
Bass i LINE 7 OF ERROR MESSAGE 


: CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 


CKBUS: TST $RMWC (RO) 
BN 1 


E 
MOV $WRDL (RO) , = (SP) 
ASL (SP) 
ADD $BUF (RO), (SP) 
CMP (SP) +,$RMBA(RO) 
BEQ 2$ 
1$: JSR PC,LINE1 
DISPLY 3EMa I 
JSR PC,LINE2 
JSR PC, LINE 3D 
JSR. PC,LINES 
JSR PC; INCTOT 
JSR PC,LINE7 
2$: RTS PC 


LL LLLELEB. LA LOL LLL OL ELE AG Le LEE LL LLL LG LO LL i et OE Ee Ne ee 


; CHECK WORD COUNT 

:BR IF NOT ZERO 

;WORD LENGTH 

: CHANGE INTO BYTE COUNT 
ZADD THE STARTING LOCATION 
;BUFFER ADDRESS PROPER ? 


;BR IF OK 
sPRINT LINE 1 GF ERROR MESSAGE 
OR WORD COUNT INCORRECT 


: INCREMENT TOTAL ERROR COUNT 
:PRINT LINE 7 OF ERROR MESSAGE 


SEQ 008% 
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132760 


126027 
001026 


012705 


000004 
001356 
001364 
002140 


000012 


001370 


001370 
001370 


000022 


000022 
000024 


001372 
150000 
013602 
013602 
090002 
014166 


001 564 
014174 


027346 
014516 


012724 
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000024 


001370 
001370 


001372 


001366 
001354 


000022 


001370 
000005 


;COMPARE THE BUFFER 


CMPAR: BITB #4 ,$CODE (80) 
BNE 1$ 
RTS PC 

1$: CLR FRSTER 

CMPARD: 

1$: CLR ERCTR 
MOV $BUF (RO) ,R1 
MOV $SWRDL (RO), CMCNT 
ADD $RMWC (CRO), CMCNT 
BNE 2$ 
RTS PC 

2$: MOV $CYL(RO),CMCYL 
BIS #150000, CMCYL 
MOV $SEC (RO) ,CMSEC 
MOV CMPLMT,LIMIT 
INC LIMIT 

CMSTR: MOV #=-1,ZROIND 
CLR SAVER1 
CLR SAVERS 
CMP CMCNT,$SSEC(RO) ; 
BH] 1$ 
MOV CMCNT ,R2 
CLR CMCNT 
BR 2$ 

1$: MOV SSSEC(RO) ,R2 
SUB $SSEC (RO) ,CMCNT 

e$: CMPB SCODE (RO) , 45 
BNE CMDAT 

: COMPARE HEADER WORDS 

CMHED: MOV ACMCYL,R5 
BIS #150000, (R1) 
CMP (R5)+,(R1)+ 
BEO 1$ 
JSR PC, CMSTR2 

1$: CMP (R5)+,(R1)+ 
BEQ 2$ 
JSR PC, CMSTR2 

es: SUB #2,R2 
BGT CMDAT 
JMP CMPRX 

CMSTR2: INC ERCTR 
JSR PC, CMPRT 
RTS PC 


;COMPARE DATA FIELD 


CMDAT: 


JSR PC,GEILMT 
JSR PC MATCH 

Br 1$ 

JSR PC ,NOMTCH 

BR 7$ 


;SEE IF READ COMMAND 
A IF 


RETURN 
sCLEAR ‘FIRST ERROR’ INDICATOR 


IT 1S 


:CLEAR THE ERROR COUNTFR 

;BUFFER ADDRESS 

;WORD COUNT TO WORKING LOCATION 
:CALCULATE ACTUAL WORDS TRANSF ERED 


sEXIT=-NO WORDS XFERED 
; CYLINDER ADDRESS WORKING LOCATION 


:SET MFG, USER AND FMT BITS 
:SECTOR & TRACK ADDRESSES TO WORKING LOCNS 


sDISPLAY LIMIT 

; CONVERT PARAMETER INTO LIMIT VALUE 
“CLEAR THE *ZERO'S’ INDICATOR 

:CLEAR THE R1 SAVE WORD 

; CLEAR THE R5 SAVE WORD 

‘an a a GREATER THAN ONE SECTOR ? 
;LESS THAN, USE REMAINING BUFFER 

‘SET COUNTER TO 0 


;COMPARE SECTOR 

=DECREMENT WORD COUNT 

:READ HEADER & DATA? 
IF NOT 


;ADDRESS OF COMPARING CYLINDER 
;SET BITS INCASE BAD SECTOR ENCOUNTER 
; CHECK CYLINDER 

:BR IF COMPARE OK 

:REPORT ERROR 

; COMPARE SECTOR/TRACK 

:BR IF EQ 

7REPORT ERROR 

; SUBTRACT HEADER LENGTH FROM SIZE 
:BR IF NOT FINISHED 

; COMPARE THE DATA PORTION 


: INCREMENT THE ERROR COUNT 
;REPORT THE COMPARISON ERROR 
;CHECK THE REST OF THE HEADER 


:GET ADDRESS LIMITS 

;F IND THE PATTERN 

:FOUND A PATTERN 

“RETURN HERE IF NO MATCH WITH PATTERN MADE 
“BYPASS COMPARE ROUTINE 


SEQ 0084 


H 7 
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MAIN PROGRAM SEQ 0085 
58 013634 011405 1$: MOV (R4) RS ;ADDRESS OF PATTERN ADDRESS IN R4 
59 013636 012703 000020 MOV #16. ,R3 *R3 1S PATTERN POS COUNTER 
60 013642 022125 2$: CMP (R1}4+,(R5)+ ‘COMPARE BUFFER WITH PATTERN 
1 013644 001016 BNE 4$ “BR IF NOT EQUAL 
62 013646 005737 001364 TST ERCTR sERRORS DETECTED ? 
63 013652 001406 BEQ $ :BR IF NO ERRORS 
64 013654 032777 000010 165272 BIT #SW3,aSWR “SWITCH 3 SET ? 
65 013662 001402 BEQ "BR IF NOT SET 
66 013664 004737 014174 JSR PC, CMPRT “DISPLAY THE WORD 
67 013670 005302 3$: DEC R2 “DECREMENT SIZE COUNT 
68 013672 003436 BLE 7$ “BR WHEN AT END 
69 013674 005303 DEC R3 “DECREMENT PATT POS COUNT 
70 013676 001361 BNE 2$ “BR IF NOT AT END OF PATT 
71013700 000755 BR 1$ :RESTART THE PATTERN 
72 013702 005761 177776 4$: TST ~2(R1) 71S MISCOMPARED CHARACTER=0 
73 073706 001410 BEQ 5$ :BR IF YES 
74 013710 012737 177777 001354 MOV #=1,2ROIND :SET NON-ZERO MISCOMPARED INDCATOR 
75 013716 005237 001364 INC ERCTR “INCREMENT THE ERROR COUNTER 
76 013722 004737 014174 JSR PC, CMPRT :REPORT ERROR 
77 613726 000760 BR 3 = CONTINUE COMPARE 
| 78 013730 105737 001356 5$: TSTB. —sFRSTER “FIRST ERROR? 
| 79 013734 100407 BMI 6$ :BR IF NOT 
| 80 013736 005037 001354 CLR ZROIND 7SET THE ZERO INDICATOR 
| 81 013742 010137 001360 MOV R1,SAVER1 >SAVE CURRENT R1 
| 82 013746 010537 001362 MOV R5, SAVERS :SAVE CURRENT R5 
| 83 013752 000746 BR 3$ = CONTINUE COMPARE 
84 013754 005737 001354 6$: TST ZROIND [ANY MISCOMPARIONS NOT ZEROS ? 
85 013760 001743 BEQ 3$ 7BR IF NONE~ALL ERRORS=ZERO 
86 013762 004737 014174 JSR PC, CMPRT :REPORT ERROR 
7 013766 000740 BR 3$ CONTINUE COMPARING 
88 013770 023727 001370 000003 7S: CMP CMCNT #3 ;LAST 3 WORDS ? 
89 013776 003473 BLE CMPRX :YES 
90 014000 126027 000024 000005 CMPB  SCODE(RO),#5 READ HEAD AND DATA ? 
91 014006 001414 BEO 9$ “YES 
92 014010 013702 001370 8$: MOV CMCNT ,R2 “SET COUNTER = JREMAIN BUFFER LENGTH 
93 014014 020227 000003 CMP R2,43 [LAST 3 WORDS ? 
94 014020 003462 | BLE CMPRX SYES,EXIT 
95 014022 162737 000400 001370 SUB #256. ,CMCNT “GREATER THAN A SECTOR ? 
9 014030 003671 BLE CMDAT =NO,RETURN TO COMPARE LOOP 
7 014032 012702 000400 MOV #256. .R2 =SET COUNTER =SECTOR SIZE 
98 014036 000666 BR CMDAT :RETURN TO COMPARE LOOP 
99 014040 105237 001374 9$: INCB —- CMSEC : INCREMENT COUNTER 
100 014044 123737 001374 001424 CMPB CMSEC,SECLMT = ;MAX SECTOR # ? 
101 014052 101424 BLOS  10$ =NO 
102 014054 105037 001374 CLRB —« CMSEC =RESET SECTOR # 
103 014060 105237 001375 INCB  —-CMTRK INCREMENT TRACK 


5 >NO 
106 014074 105037 001375 CLRB - CMiRK “RESET TRACK # 
107 014100 005237 001372 INC CMCYL “INCREMENT CYLINDER NUMBER 
108 014704 013746 001372 MOV CMCYL ,-(SP) “GET COMPARING CYLINDER 
109 014110 042716 150000 BIC #150000, (SP) ;SAVE ONLY THE CYLINDER BITS 
0 014114 022637 001422 CMP (SP) +, SCYLIMT SLAST CYLINDER ? 


NO 
014122 000421 BR CMPRX NORMAL RETURN,NOT WRAP ARQUND 


| 

| 

| 

| 104 014064 123737 001375 001426 CMPB Sg a eT :MAX TRACK # 

' 

! 

014124 012705 001372 108: MOV ACMCYL,R5 :ADDRESS OF COMPARING CYLINDER 
| 

L 


Ee en me me ee me 


7 LL LLLLOLL LLC LLL LLL LOLOL LLL LLL LL LOL LLL ELLE LD LLL LL OL LTC CEE I LE EC TR tt tt te aaa 
ES Sr eee eerneeee cteetee rarer on. 
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115 014130 052711 150000 BIS #150000, (R1) :SET BITS INCASE BAD SECTOR ENCOUNTER 
116 014134 022521 CMP (R5)+, (R194 “COMPARE 1ST HEADER WORD 
117 014136 001402 BEQ 11$ :MATCH 
118 014140 004737 013602 JSR PC, CMSTR2 T MATCH 
119 014144 022521 11$: CMP (R5)+,(R1)+ : SECOND WORD OF HEADER 
120 014146 001402 BEQ 12$ “MATCH 
121 014150 004737 013602 JSR PC, CMSTR2 “NOT MATCH 
122 014154 162737 000002 001370 12%: SUB #2, CMCNT “ADJUST WORD COUNT 
123 014162 003401 BLE CMPRX =COMPARE IS DONE 
124 014164 000711 BR 8$ “RETURN TO COMPARE LOOP 
126 014166 004737 014450 CMPRX: JSR PC, ENDCMP -PRINT LAST LiNE IF ERRORS 
127 014172 000207 RTS PC 
c 
129 : TYPE DATA COMPARE ERRORS 
131 014174 005737 001360 CMPRT: TST SAVER  GPRINT SAVED VALUES ? 
132 014200 001010 BNE 2 R IF YES 
133 014202 105737 001356 STB ~—s FRSTER “FIRST ERROR? 
134 014206 100402 BM! 1$ “BR IF NOT 
135 014210 004737 014270 JSR PC,4$ “PRINT INITIAL MESSAGE INFO 
136 014214 004737 014352 1$: JSR PC,8$ “PRINT REMAINDER OF MESSAGE 
137 014220 000422 BR 3$ “EXIT 
138 014222 2$: 
014222 010146 MOV R1,=(SP) ; PUSH R1 ON STACK 
014224 010546 MOV R5,-(SP) - PUSH R5 ON STACK 
139 014226 013701 001369 MOV SAVER1,R1 = DISPLAY SAVED R1 
140 014232 013705 001362 MOV SAVERS RS “DISPLAY SAVED RS 
141 014236 004737 014270 JSR PC,4$ =PRINT INITIAL MESSAGE INFO 
142 014262 004737 014352 JSR PC ,8$ *PRINT SAVED VALUES 
143 014246 005037 001360 CLR SAVER *CLEAR SAVED REGISTER INDICATORS 
144 014252 005037 001362 CLR SAVERS *CLEAR THE OT 
145 014256 012605 MOV (SP) + R5 *:POP STACK INTO R5 
014260 012601 MOV (SP)+.R1 *=POP STACK INTO R1 
146 014262 004737 014352 JSR PC ,8$ *PRINT REMAINDER OF MESSAGE 
147 014266 000207 38: RTS PC * RETURN 
149 014270 105737 001356 4$: TSTB _—sFRSTER :FIRST ERROR ? 
150 014274 100425 BMI 7$ *BR IF NOT 
151 014276 001013 BNE 5$ “BR IF FIRST ERROR AND PROCESSING "DCK" ERROR 
152 014300 004737 021046 JSR PC,LINE1 “PRINT LINE 1 OF ERROR MESSAGE 
153 014304 104414 072354 DISPLY .EM42 =DATA COMPARE ERROR 
154 014310 004737 021126 JSR PC ,LINE2 “PRINT LINE 2 OF ERROR MESSAGE 
155 014314 004737 021574 JSR P-L INE 3A *PRINT LINE 3A OF ERROR MESSAGE 
156 014320 004737 022236 JSR PC,LINE4 “PRINT LINE 4 OF ERROR MESSAGE 
757 014324 000404 BR 6$ *GO TO TYPE HEADER 
158 014326 104414 074755 5$: DISPLY ,LIN9B “HEADER MESSAGE OF PROCESSING "DCK' ERROR 
159 014332 104414 001203 DISPLY ,$CRLF =CR=L 
160 014336 104414 075004 6$: DISPLY .LINSH “DISPLAY HEADER 
161 014342 012737 177777 001356 MOV #-1 ,FRSTER “SET FIRST ERROR FLAG 
162 014350 000207 7$: RTS PC > RETURN 
164 014352 005737 001366 8$: TST LIMIT ;TYPEOUT LIMIT REACHED ? 
165 014356 001403 BEQ 9$ IF IT HAS 
166 014360 005337 001366 DEC LIMIT  DECREMENT LIMIT COUNTER 
167 014364 001005 , BNE 10$ “BR IF NOT AT LIMIT 
168 014366 932777 000200 164560 9$: BIT #SWO7,aSWR “PRINT ALL DATA COMPARE ERRORS ? 


SEQ 0086 


69 0143574 
170 014376 


NAWUESWN—- 
oO 
— 
> 
& 


014446 


86 014450 
87 014454 


196 014514 


014516 


014574 


001001 
000207 


010146 


000207 


105737 


010746 


013704 
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000002 


023144 
001203 


001357 
0013564 
075077 


022710 


001460 


000044 
000002 


002426 
000004 


002426 
000002 
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BNE 10$ 
RTS PC 
10$: MOV R1,~(SP) 
SUB #2, (SP) 
JSR PC,LINOCT 
DISPLY ,BLNKS2 
MOV =2(R5) ,=(SP) 


JSR ae LINOCT 


NKS2 
ORT). - (SP) 
JSR PC,LINOCT 
DISPLY ,$CRLF 

S PC 


;BR IF YES 
;RE TURN 


;BUFFER ADDRESS 
ype iT ADDRESS 


; TYPE 2 BLANKS 
;PUT GOOD DATA ON THE STACK 


“RETURN 


ANY COMPARE ERRORS FOUND ? 
:BR IF NOT 


;SEE HOW MANY ERRORS 

;BR IF ONLY CAN'T MATCH PATTERN 
; "NUMBER OF ERRORS=° 

:NUMBER OF ERRORS 


; CR=LF 
; INCREMENT TOTAL ERROR COUNT 


RT 
sLAST LINE OF COMPARE ERROR REPORTING 
ENDCMP: TSTB FRSTER+1 
BEQ 2$ 
TST ERCTR 
BEQ 1$ 
DISPLY ,LIN9E 
MOV ERCTR, -(SP) 
JSR PC, LINDEC 
DISPLY S$CRLF 
1$: JSR PC, INCTOT 
JSR PC, LINE? 
23: RTS PC 


:PRINT LINE 7 OF ERROR MESSAGE 
TURN 


sROUTINE TO ae THE DATA WITH A PATTERN, ONLY WHEN LOCATION ‘PATTERN’ 


:1S EQUAL TO 0 (RANDON D 


ATA PATTERN MODE). 


OTHERWISE, THIS ROUTINE WILL 


:RETURN THE ADDRESS OF THE EXPECTED FIXED DATA PATTERN IN R4. 


; MOV ABUFFER,R1 

; JSR PC ,MATCH 

; RETURNI 

; RETURN2 

MATCH: MOV R1,-(SP) 
MOV PATTERN,R4 
BEQ 1$ 
ASL RS 
BR 4$ 

i$ MOV #44 ,R4 

2$ MOV (SP) ,R1 
SUB #2,R4 
BEQ 
MOV STNDAT(R4) ,R5 
MOV #4 ,R3 

3$ CMP (R1)+,(R5)+ 
BNE 2$ 
DEC R3 
BNE 3$ 

4$ ADD ASTNDAT ,R4 
BR 6$ 

000002 5$: ADD 42,2 (SP) 


;BUFFER ADDRESS 


;PATTERN ADDRESS IN R4& 
;COULDN*T MATCH PATTERN 


SAVE R1 ON THE STACK 
7WAS RANDOM PATTERN ENABLED ? 
:BR IF YES 


;USE KNOWN PATTERN 
SPATTER TABLE INDEX 


REL 
= DECREMENT INDEX 
“BR IF PATTERN NOT MATCH 
;ADDRESS OF FATTERN ADDRESS 
“NUMBER OF LOCATIONS TO CHECK 
»COMPARE THE BUFFER AGAINST THE PATTERN 
“BR IF NOT EQUAL, TRY NEXT PATTERN 
:F INI SHED CHECKING? 
:BR IF NOT FINISHED 
eye PATTERN ADDRESS ABSOLUTE 


; INCREMENT RETURN ADDRESS 
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236 014602 
th 014604 


012601 
000207 


016037 


002142 
002140 
000020 


000022 
031710 


001400 
000005 


000004 
001000 


001402 
001404 


164320 


164274 
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001400 


000024 
001400 
001400 
001376 
001406 


001376 
001406 


001406 
001406 


001402 


001412 


164300 


6$: MOV (SP)+,R1 ;RESTORE R1 
RTS PC RETURN 
sUSE ECC TO CORRECT THE DATA ERROR 
ECC: MOV $RMBA(RO),ECSEC ;ADDRESS OF LAST LOCN XFERED 
MOV $RMWC(RO),<(SP) sACT WORDS XFERED (2°S COMP) 
ae eo ee? ZADD WORDS REQUESTED 
TST (S?) + RESTORE STACK 
RTS PC sEXIT--NO WORDS XFERRED 
1$: CLR = (SP) ‘CLEAR NEXT STACK LOCN 
MOV $SSEC(RO),-(SP) ;SECTOR SIZE 
JSR PC,$DIV :DIVIDE WORDS XFERED BY EC TOR SIZE 
ey (SP) PARTIAL SECTOR XFERED ? 
ASL (SP) ; CONVERT INTO NUMBER OF BYTES 
SUB (SP) ,ECSEC 7SUBTRACT SECTOR RESIDUE 
ag #5, $CODE (RO) ;WAS roe READ HEAD & DATA 
ADD A4,ECSEC ADD eat SIZE (IN BYTES) BACK IN 
BR ;GO ADJUST THE STACK POINTER 
2$: SUB #256.*2,ECSEC : SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 
3$: ADD #4,5S sADJUST THE STACK POINTER 
MOV $RMEC1(RO) .ECBIT ;ECC POSITION COUNT 
DEC ECBIT ADJ UST BIT POSITION 
MOV ECBIT ,ECWRD THE WORD COUNT LOCATION 
BIC #°C17,ECBIT 7SAVE THE BIT OFFSET COUNT 
BIC #17 ,ECWRD :CLEAR THE BIT OFFSET 
ASR ECWRD :CHANGE TO BYTE COUNT(DIVIDE BY 2) 
ASR ECWRD :CHANGE TO BYTE COUNT(DIVIDE BY 4) 
ASR ECWRD :CHANGE TO BYTE COUNT (DIVIDE BY 8.) 
DISPLY ,LINIO ; "ERROR BURST BEGINS AT 
MOV CWRD ,~ (SP) ;PUT THE WORD COUNT ON THE STACK 
ASR (SP) :GET STARTING WORD FOR MESSAGE(DIVIDE BY 16.) 
JSR PC,$SB2D ;CONVERT THE WORD COUNT TO DECIMAL 
JSR PC, SSUPRL SAND PRINT IT 
DISPLY ,LIN10B ;° IN DATA FIELD OF ERROR S$ 
ADD ECSEC ,ECWRD :FIND THE BEGINNING OF THE ERROR BURST 
CMP SRMBA(RO) ,ECWRD ;SEE IF ite WAS IN DATA READ 
BHI ;BR IF IN DATA READ 
JMP ECC2 :NOT IN DATA READ - REPORT IT 
4$: MOV aaa ECMSKO ;GET THE ERROR BIT MASK 
CLR ECMS :CLEAR THE UPPER MASK WORD 
5$: DEC CBT ; DECREMENT THE BIT OFFSET COUNT 
BLT 6$ F DONE 
ASL ECMSKQ SHIFT THE ERROR MASK 
ROL ECMSK1 >SHIFT THE LOWER jhe THE UPPER 
BR 5$ :CONTINUE THE SHIFT 
6$: MOV @ECWRD ,ECBADO _ THE INCORRECT WORD 
MOV ECMSKO,-(SP) LOWER MASK ON STACK 
BIC @ECWRD, (SP) CLEAR ERRONEOUS ONE BITS FROM MASK 
BIC ECMSKO,@ECWRD ;CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
BIS (SP) +, a CWRD :SET DROPPED BITS 


SE ne RR ee we we ee me 


— ee ee + eee. ce 


SEQ 0085 


- MAIN PROGRAM 


ee ee 


3 015112 

94 015116 
20 
26 


310 015210 
315 dey te. 


316 

317 015260 
318 015264 
319 015266 
324 015272 


325 015536 


326 
327 015340 
328 0155344 
329 015350 
330 


331 

332 

333 015352 
334 015360 
335 015362 
336 015366 
337 015372 
338 015376 
339 015400 


340 015402 
341 915404 


005737 


013746 


CZ7RMUBO RMO5S/3/2 PERF EXER 


001404 
001406 
000002 
002142 
001402 
001414 


164250 


164204 
075354 


023144 


001414 


023144 
075554 


075250 
001203 


000010 
002142 
000020 
002140 
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001414 
001414 
001414 


001420 


164210 


163574 


7$: 


8$: 


ECC1: 


ECC2: 
ECCX: 


JSR 
DISPLY 
MOV 
JSR 
DISPLY 
TST 
BEQ 
DISPLY 
MOV 


ISPLY 
IS 


D 
C 
RTS 


ral 
yr acno | 


ECWR 
SRMBA(RO) , ,ECWRD1 


@ECWRDT , ECBAD1 
ECMSK1,-(SP) 
@ECWRD', (SP) 

ECMSK1,@E CWRD1 
(SP) +, @ECWRD1 


, SCRLF 
ECWRD1 ,-(SP) 
PC,LINOCT 


-BLNKS2 
ECBAD1 ,~(SP) 
PC,LINOCT 


-BLNKS2 
@E CWRD1 ,- (SP) 
PC.LINOCT 
eBL 
ECCX 
,LINIOC 


, SCRLF 
PC 


;DOES ERROR GO INTO NEXT WORD ? 


;BR IF NO 
;DUPLICATE ADDRESS 
+ INCREMENT ERROR ADDRESS 
awry S NEXT WORD IN THE BUFFER ? 


;B vés, ELSE, 

‘WAS ERROR IN FIRST WORD ? 
“BR IF NO 

“CLEAR 2ND WORD ADDRESS 
“PRINT WORD CORRECTED 


;SAVE THE SECOND BAD WORD 

;PUT THE UPPER MASK ON THE STACK 

:CLEAR ERRONEOUS ONE BITS FROM UPPER MASK 
;CLEAR ERRONEOUS ONE BITS FROM DATA WORD 
:SET DROPPED BITS 


s HEADER 

;PUT ECWRD ON THE STACK 

; TYPE ECWRD 

:TYPE 2 BLANKS 

;PUT ECBADO ON THE STACK 
CBADO 


ANKS 
;PUT @ECWRD ON THE STACK 
; TYPE @ECWRD 
;TYPE 2 BLANKS 


sPRINT THE NEXT WORD ? 

J IF NOT 

7 CR-LF 

:PUT ECWRD1 ON THE STACK 

; TYPE ECWRD1 
TYPE 2 BLANKS 

:PUT ECBAD] ON THE STACK 
TYPE ECBADT 


:TYPE 2 BLANKS 

:PUT @ECWRD1 ON THE STACK 
; TYPE @ECWRDI 

:TYPE 2 BLANKS 

EXIT 


cae BURST WAS NOT TRANSFERED TO MEMORY 


;RETURN 


;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 


PRTBAD: oe T 


1$: 


sleet 
SRMBA(RO) ,R1 
$WRDL (RO) ,- (SP) 
ee er 
(SP) + 


PC 
-(SP) 


ee THE BAD SECTOR ? 


IF NOT 
;PUT THE END ADDRESS INTO Rt 
sFIND THE BEGINNING OF THE SECTOR 
:SUBTRACT THE WORDS NOT TRANSFERED 


;RESTORE STACK 
;EXIT=-NO WORDS XFERRED 
“MAKE THE UPPER DIVIDEND 0 


A ee 
ee 


CZRMUBO eal PERF EXER 


MAIN PROG 
| 342 015406 


WG 

Ww 

nr 0 
O° ° 

— 

Wi 

o 

° 


367 015532 
368 
369 015536 


370 015542 
371 015546 


616 
385 015622 
386 
387 
388 
389 
390 
391 


392 
393 01 af 2h 


398 015546 


111037 
112737 


0002 
031710 


001000 
000005 


000004 
000004 
001203 
075437 
000005 
075512 


023144 
075555 


023144 
075555 


023144 
001205 


075533 
000010 
023144 
075554 
002142 
075555 
023144 


001203 


001203 
001203 


070322 
000117 
040714 
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000024 


000024 


070324 


3$: ADD 


JSR 
DISPLY 
MOV 
JSR 
DISPLY 
4$: DISPLY 
5$: MOV 
MOV 
JSR 
DISPLY 
6$: CMP 
BEQ 
DISPLY 
MOV 
JSR 
DEC 
BNE 
DISPLY 
BR 
7$: DISPLY 
DISPLY 
8$: RTS 
;ROUTINE TO DO 
: CALL: 
5 MOV 


RTNCTR: 
1$: J5R 


SSSEC(RO),=(SP) ; 
PC,$D1IV 


(SP) 

2$ 

(SP) 
(SP) ,R1 
$ 


#256.*2,R1 
#5 ,$CODE (RO) 


-BLNK 
het 
PC,LINOCT 
,-BLNKS1 
(R1)+,=(SP) 
PC ,LINOCT 

- SCRLF 


»LINIIA 


-BLNKS1 
(R1)+,=(SP7 
PC,LINOCT 
R2 


6$ 
SCRLF 
5$ 


- SCRLF 
»SCRLF 
PC 


sDIVIDE THE WORDS XFERED BY THE SECTOR SIZE 
;DIVIDE 
;REMANDER = 0 ? 

;BR IF IT IS =~ COMPLETE SECTOR TRANSFERED 

:; CONVERT THE RESIDUAL SECTOR INTO BYTE COUNT 
:SUBTRACT IT FROM THE END ADDRESS 

sFINISH THE SIZING 

; SUBTRACT FULL SECTOR FROM END ree (IN BYTES) 
:WAS OPERATION READ HEADER & DATA ? 

; SUBTRACT HEADER SIZE FROM ADDR 


i RESTORE THE STACK POINTER 


; CR=LF 
: PRINT THE HEADER 
WAS , a READ HEADER & DATA ? 


“TYPE "ADDR HEADER’ 
Pur THE ADDRESS ON THE STACK 
YPE THe ADDRESS 


Ty WORD ON STACK 
“TYPE THE 1ST HEADER WORD 


: YPE 1 BLANK 
:PUT WORD ON STACK 
Bt Pe 2ND HEADE 


: TYPE ‘ADDR DATA’ 
8. DATA WORDS PER LINE 
PUT THE ADDRESS ON THE STACK 
“TYPE THE ADDRESS 
: TYPE 2 BLANKS 
*PRINTED ALL THE SECTOR ? 
:BR IF ALL PRINTED 
TYPE 1 BLANK 
“PUT THE DATA | ON THE STACK 
> TYPE THE DATA 


:DECREMENT THE HORIZONTAL COUNT 
:BR IF NOT AT THE END OF THE LINE 


3s CRLF 
:RESTORE THE WORDS/LINE COUNT 


R WORD 


AN RTC - DRIVE SELECTED IN RO 


ADPB,RO ;DPB ADDRESS 
PC,RTNCTR 
(RO) ,GENDPB sMOVE THE DRIVE # TO THE GENERAL DPB 
ARTC, * CENDPB+SCOMND st CODE 
RO,RMOS ;DRIVER ENTRANCE 
:DPB ADDRESS FOR COMMAND 
1$ “DRIVER DIDN'T ACCEPT COMMAND 
PC ;RETURN 


OC AS EE OE ee ee me ee ee ae neo - 


SEQ 0090 


eo 
mM 


IN PROGRAM 


406 015650 


420 015736 


428 015740 


4 
443 015766 
444 015772 


oO 
i) 
Ww 
™N 


112737 


111037 


112737 . 00011 
037 


004 

070322 
000774 
000207 
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015674 
040714 
000016 
023216 
000034 
000033 


000032 
000012 
000010 


000107 
040714 


070340 


ate 
040714 


N 7 
MACRO VO04.00 4=APR=-81 01:42:23 PAGE 15-7 


000027 
000002 


070324 


070324 


—_— TO DO A RECALIBRATE USING ACTIVE DPB 


: MOV #DPB,RO :DPB ADDRESS 

: JSR PC,RECALT 

: RETURN 

RECALT: MOV D THE DPB ADDRESS 


RO,2$ 
MOVB $RMCS1(RO), SPREVOCRO) Ay tt THE PREVIOUS COMMAND 


MOVB H#RECAL , SCOMND ( (RO) THE NEW COMMAND 


OAD 

1$: JSR RO, RMO5 ART rie ORECAL IBRAT E 
2$: “WORD 0 ‘SPB ADDRESS 

BR 1$ “DRIVER DIDN* T ACCEPT THE COMMAND 
3$: TST $TATUS (RO) “SEE IF FINISHED 

BEQ 3$ :I1F EQ NO 

JSR PC,READDR “DECREMENT THE ADDRESSES 

MOV (SP) +, $PREVA+2(RO) :MOVE THE CYLINDER ADDRESS 


MOVB (SP) +. $PREVA+1(RO) “MOVE THE TRACK ADDRESS 
MOVB (SP) +. $PREVA(RO) “MOVE THE SECTOR ADDRESS 
CLR $CYL (RO) :CLEAR THE CURRENT CYLINDER ADDRESS 
CLR SSEC (RO) “CLEAR THE CURRENT TRK/SEC ADDRESS 
RTS PC RETURN 
: ROUT INE TO A RECAL WITH NO DPB ACTIVE 
: MOVB #DRIVE.GENDPB ;DRIVE ADDRESS 
: JSR PC ,RECALO 
: RETURN 
RECALO: MOVB  #RECAL.GENDPB+$COMND = ; RELCALIBRATE COMMAND 
1$: JSR RO,RMO5 :DRIVER ENTRANCE 
GENDPB “DPB ADDRESS FOR COMMAND 
1$ “DRIVER DIDN'T ACCEPT THE COMMAND 
2$: TST GENDPB+$TATUS :SEE IF FINISHED 
BEO es “BR IF NOT FINISHED 


Met THE DRIVE IN RO (OFFSET CODE PRELOADED INTO ‘RMOF*) 


; MOVB #OF FSET, GENDPB+SFMT sOFFSET CODE 

; MOV #DPB,RO ;DPB ADDRESS 

; JSR PC ,OFFST 

; RE TURN 

OFFST: MOVB (RO) , GENDPB sDKIVE # TO GENERAL OPS 
MOVB #OFFSET,GENDPB+SCOMND — ; COMMAND 

1$: JSR RO,RMOS :DRIVER ENTRANCE 
GENDPB :DPB ADDRESS FOR COMMAND 
BR 1$ [DRIVER DIDN'T ACCEPT COMMAND 
RTS PC 

vars READ HEADER ROUTINE 

; MOV ADPB RO ;DPB ADDRESS 

; MOV MSECTOR,-(SP)  ;SECTOR ADDRESS 

; MOV ATRACK ,~(SP) ; TRACK ADDRESS 


MOV #CYLINDER,-(SP) ;CYLINDER ADDRESS 


eS nm Re me ee ee ee ee ee ee eee ee ee -- 


SEQ 0091 


ee o 
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507 
508 


0 6 
016102 


0 
016222 
016226 
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017050 
000016 
001331 
000002 
000200 


001326 
002152 


001326 
001331 
001330 


023132 
022710 


074732 
007254 
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000016 


002152 


001331 


: WW PC ,READDR 
; RE TURN 
READHD: MOVB 4(SP) , GENDPB+$TRK 3; TRACK gin ty 
MOVB 6(SP) ’ GENDPB+$SE C “SECTOR A DDRESS 
MOV 2(SP) ,GENDPB+$CYL “CYLINDER ADDRESS 
MOVB (RO) ),GENDPB ;DRIVE NUMBER 
MOVB #RDHD GENDPB+ +$COMND 
MOV #~2, GENDPB+$WCNT “WORD CTR = 2 
1$: JSR RO, RMOS ;DRIVER ENTRANCE 
GENDPB * DPB ADDRESS FOR COMMAND 
BR 1$ :DRIVER DIDN'T ACCEPT COMMAND 
2s: TST GENDPB+$TATUS 7 F INISHED? 
BEQ : F NOT 
MOV (SP) ,6(SP) sADJUST STACK FOR RETURN 
ADD #6,SP ;ADJUST RETRUN POINTER 
RTS PC sRETURN 
> py THE PRESENT OPERATION 
3 CAL 
: MOV #COUNT, ~ gaad sRETRY COUNT 
; JSR PC, SRETRY 
; RE TURN] z:RETRY UNSUCESSFUL 
; RE TURN2 : SUCESSFUL RETRY 
; “NOTE: IF A DIFFERENT ERROR OCCURS DURING 
: “RETRY, THE ROUTINE EXITS TO “ERPRC1’ 
SRETRY: JSR PC,GODRIV :RE-START COMMAND 
1$: TST STATUS(RO) : COMMAND FINISHED? 
BEQ 1$ :BR IF NOT 
BMI 23 ;BR IF ERROR 
INCB RETRY+1 : INCREMENT RETRY COUNT 
ADD #2, (SP) : INCREMENT Re TURN 
BR GO O EXIT 
23: BIT #BIT7, STATUS(RO) :DID COMMAND TERMINATE NORMALLY ? 
BEQ 7$ ;BR IF NO 
TST MASK -IS ERROR MASK 0 ? 
BNE 3$ “BR IF NOT 
TST SRMER1T (RO) ;MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 
BNE 6$ F NOT 
BR 4$ > CONT INUE RETRY 
3$: BIT MASK, SRMER1 (RO) + SAME ERROR? 
BEQ 6S ;BR IF NOT 
4$: INCE RETRY+1 * INCREMENT RETRY COUNT 
CMPB RETRY, RETRY+*1 s ? 
BNE SRETRY “BR IF NOT DONE 
5$: RTS PC ;RETURN 
6$: JSR PC,LINE8 ; REPORT DIFFERENT ERROR 
JSR PC,LINE?7 *PRINT LINE 
TST (SP)+ * ADJUST STACK POINTER FOR DIRECT RETURN 
RTS PC *RET URN 
7$: DISPLY ,LIN&M : "DIFFERENT ERROR DURING RETRY" 
ERPRC1 sREPORT THE ERROR 


5 FOES OT ee ee ee eee ee teen 


SEQ 0092 


ttt eee: eek 
ee rene on 


c- 





CO OWNAOULS WH —OVDONAUPWHr-a 
— — 3 
Cu ouROnono 
PIN} 


6 
16316 


28 016352 
29 016360 
30 016364 
31 016366 
32 016372 
33 016576 


34 
35 016400 
% 


57 016444 


032760 
001456 
016037 
166037 
001447 
006237 


122760 
001404 


010146 


000 
011166 
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000300 
002142 
000006 
016400 
000002 
000000 
016400 
000062 


00006 
000056 


001642 


001644 
000020 


000004 
000010 
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000016 


016400 
016400 


000024 
000024 
000060 


000024 
000036 
000066 


000002 


ree TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 


: MOV #DPB,RO :DPB ADDRESS 
: JSR PC, STATIS 
: RETURN 
STATIS: BIT #81T07!B1T06,$TATUS (RO) {CHECK FOR DATA TERMINATION 
BEQ 3$ :BR IF NOT DAT A TERMINAT ION 
MOV $RMBA(RO) FACTOR :STORE THE FINAL BUFFER ADDRESS 
SUB $RBUF (RO),FACTOR ;SUBTRACT THE INITIAL ADDRESS 
BEQ 3$ BR IF NO DATA TRANSFER 
ASR FACTOR “CONVERT TO A WORD COUNT 
CPB #2, $CODE (RO) ; SEE If COMMAND WAS A WRITE 
CMB 40. ,SCODE (RO) :PRESENT OPERATION AN AUTO WRITE CHECK ? 
1$: ADD FACTOR, $WRI TNXRO) :ADD WORDS WRITTEN DURING WRITE DATA 
ADC SURITN*2(RO) :DID HIGH WORD OVFLO AFTER ADDING CARRY ? 
CLR $WRITN+2(RO) LEAR NIGH WORD 
INC SWTOFL (RO) “AND COUNT WRITE OVERFLOW 
2$: CMPB =s- #2, SCODE (RO) :SEE IF COMMAND WAS A WRITE 
BEQ 3 H IF YES 
ADD FACTOR. SENDAT ( T(ROS :END OF PASS DATA WORD COUNT 
ADC SENDAT+2(RO) :ADD ANY CARRY 
ADD FACTOR SREAD (RO) sUPDATE THE READ WORD COUNT 
ADC SREAD+2(RO) :DID HIGH WORD OVFLO AFTER ADDING CARRY ? 
BVC 3$ “BR IF NO 
CLR $READ+2(RO) “CLEAR HIGH WORD 
a INC SRDOF L (RO) “AND COUNT READ OVERFLOW 


FACTOR: .WORD 0 
res eggs TO GET A BUFFER 


;USED FOR WORDS TRANSFERED 


: #DPB,RO :DPB ADDRESS 
; CLR - (SP) :CLEAR THE STACK 
R PC, GE TBUF 
: RE TURN :BUFFER ADDRESS WILL BE ON THE STACK 
; :STACK WILL BE ZERO IF NO BUFFER AVALLAGLE 
GETBUF: MOV R1,-(SP) s SAVE R1 
V R2,-(SP) SAVE Re - 
MOV R3,-(SP) :SAVE R3 
BUF TBL .R2 :NUMBER OF SEPARATE BUFFERS 


MOV R 
BEQ 5$ ;BR_IF NONE AVAILABLE 


MOV #BUF TBL+2,R1 sFIRST ADDRESS OF ALLOCATION TABLE 
1$: CMP SWRDL (RO) ,2(R1) 7 SEE IF ir IS A BLOCK LARGE ENOUGH 

BLOS 2$ CH IF IT IS 

DEC R2 : DECREMENT TABLE COUNT 

BEO 5$ :BR IF THROUGH TABLE 

ADD #4 ,R1 ; INCREMENT TABLE FOINTER 

BR > CONTINUE LOOKING 
2$: MOV (R1),10¢(SP) : BUFFER ADDRESS TO STACK 


~ mere eee = 
OS ee OR = er ee ee ee em ee ——- _——_- ee en —_— eee -~.- . 


SEQ 0095 


ae ee _——— ae ee 
LE Le pe Sg 


58 016450 
59 016456 
60 016460 
6 64 


010146 


066061 
010246 
013702 
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000020 
000020 
000020 
000020 
001642 


000004 


001644 
001642 


000110 
000006 


000004 
000006 
000110 
001642 
000006 
000110 
001642 


000006 
000110 
001642 
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000002 


000002 


000002 


4$: 


5$: 


sROUTINE TO 
>CALL: 


RELBUF : 


2$: 


3$: 
4$: 


RTS 


8 
14-1] 


SWROL(RO),2(R1) ;ADJUST BUFFER WRD CNT 
3$ BR IF DIFFERENCE IS ZERO 


“CONVERT # WORDS TO BYTES 


SWRDL (RO) 
SWRDL (RO) , (R1) MAKE NEW STARTING ADDRESS 
SWRDL (RO) ;RETURN # BYTES TO WORDS 

S$ ‘RE TURN 
BUF TBL “DECREMENT ENTRIES COUNT 

$ 7BR IF ALLOCATION TABLE EMPTY 
R2 “DECREMENT TABI.E COUNT 
5$ “BR IF ITEM WERE LAST ENTRY 
R1,R3 “MOVE TABLE POINTER 
#4_R3 *POINT 10 NEXT ENTRY 
(R3)+,(R1)4 “MOVE ITEMS 

(R3)+,(R1)4 
R2 :DECREMENT TABLE COUNT 
4$ i CONTINUE | IF NOT AT END OF TABLE 
(SP) +,R3 “RESTORE R 

(SP) +,R2 “RESTORE R2 

(SP)+_,R1 “RESTORE R1 
PC ; RETURN 
BUFFER BACK IN TABLE 
#DPB,RO :DPB ADDRESS 

PC .RELBUF 

R1,~(SP) :SAVE R1 

R2,-(SP) ; SAVE 

R3,-(SP) “SAVE R3 

R4,-(SP) = SAVE R4 

R5,-(SP) *SAVE R5 

#BUFTBL+2.R1 BEGINNING OF TABLE 
BUF TBL ,R2 *ENTRY COUNT 

2 *BR IF EMPTY TABLE 
S$HLDWC(RO),R3  :TRIAL ADDRESS 
*CHANGE TO BYTE COUNT 

SRBUF (RO) .R3 “ADDRESS OF HIGHER ADJACENT BLOCK 
(R1),R3 “UPPER ADJACENT BLOCK 

$ sBR IF YES 

#4,R1 ‘INCREMENT POINTER 

R2 *DECREMENT ENTRY COUNT 

“CONTINUE SEARCHING 

$BUF (RO),(R1) :PUT THE BUFFER BLOCK | INTO THE TABLE 
SHLDWC (RO) ,2(R1) :BLOCK WRD CNT 

BUF TBL : INCREMENT ENTRY COUNT 


> INCREMENT R2 FOR USE LATER 
4$ “SEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE 
$BUF (RO) (RI)+, _:BLOCK ADDRESS TO TABLE 
SHLDWC (RO), (R1) *WRD CNT TO TABLE 


BUF TBL Een ENTRY COUNT 
$BUF (RO) (RI) , RELEASED BUFFER IS LOWER ADJACENT 
$SHLDWC (RO) ,2 » INCREMENTED WRD CN 
R2,=-(SP) : SAV 

BUF TBL .R2 “ENTRY COUNT 


EE A ee em me meee - 


SEQ 0094 
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ONAMALWIHRODONOWN 


WN © 


ll ed ed et td 2d») od ot oe) od ee 
LAN LALA A A OA A OA A I Po Ro mono nono nong —--+ -_ 
BoOwaak 8 fa dae hea te 


140 


016770 


016772 


017046 


012705 


104412 


001644 
000002 


000004 


000002 
001642 


000004 


000004 
000006 
000020 
000030 


002426 
000020 
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MOV #BUFTBL+2,.R5 § ;BEGINNING OF TABLE 
5$: MOV 2(R5) RS “BLOCK SIZE (IN WORDS) 
ASL R4 “CHANGE TO BYTE COUNT 
ADD (R5),R4 ‘ADD BLOCK BEGINNING ADDRESS 
CMP R4,(R1) *R1 STILL POINTS TO INSERTED ENTRY 
BEO 6$ “LOWER ADJACENT IN TABLE 
ADD #4 ,R5 : INCREMENT POINTER 
DEC R2 “DECREMEN; ENTRY COUNT 
BNE 5$ “CONTINUE LOOKING 
TST (SP) + “RESTORE STACK POINTER 
BR 8$ END 
6$: MOV (SP) +,R2 “RESTORE R2 
000002 ADD 2(R1).2(R5) ‘ INCREMENT LOWER BLOCK LENGTH 
DEC BUF TBL “DECREMENT ENTRY COUNT 
MOV R1,R5 “GET READY TO COMPRESS 
ADD #4-R5 “INCREMENT TO NEXT ENTRY 
7$: MOV (R5)+, (R1)+ “COMPRESS TABLE 
MOV (R5)+,(R1)¢ “MOVE SIZE FIELD DOWN 
DEC R2 “DECREMENT ENTRY COUNT 
BNE 7$ “BR IF NOT FINISHED 
8$: MOV (SP)+,R5 “RESTORE R5 
MOV (SP) +.R4 “RESTORE R4 
MOV (SP) +.R3 “RESTORE R3 
MOV (SP) +_R2 “RESTORE R2 
MOV (SP) +,R1 “RESTORE R1 
RTS PC RETURN 
ETL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK COMMAND) 
: MOV #DPB,RO :DPB ADDRESS 
: MOV #BUF ADR, SBUF (RO) ” = LOAD BUFFER ADDRESS INTO THE DPB 
: MOVB = #PATTERN, SPATTC (RO) “PATTERN CODE 
; JSR PC, F ILBUF 
: RETURN 
FILBUF: SAVREG :SAVE THE REGISTERS 
000024 BITB #4, $CODE(RO) >SEE IF READ COMMAND 
BNE 4$ “BR IF READ 
1$: MOV SRBUF (RO) .R1 “BUFFER ADDRESS 
MOV S$WRDL(RO),R2  :POSITIVE WORD COUNT 
MOVB  $PATTC(RO).R6  :RELATIVE PATTERN ADDRESS 
2$: MOV STNDAT(RG).R5  =PATTERN ADDRESS 
MOV #16.,R “PATTERN COUNT 
3$: MOV (R5)+, (R1)+ “MOVE THE PATTERN INTO THE BUFFER 
DEC R2 ZDECREMENT THE WORD COUNT 
BLE 4$ “BR IF DONE (WORD COUNT = 0) 
DEC R3 : DECREMENT THE PATTERN COUNT 
BNE 3$ “BR IF MORE PATTERN 
BR 2$ : CONT INUE DISTRIBUTING THE PATTERN 
4$: RESREG “RESTORE THE REGISTERS 
RTS FC : RE TURN 


= MOV 
3 JSR 
: RETURN 


#DPB,RO 
PC,GODRIV 


+ hip THE COMMAND FOR THE DPB IN RO 
it's 
;DPB ADDRESS 


SEQ 0095 
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MAIN PROGRAM SEC 9094 
re 017050 010046 GODRIV: MOV RO,=(SP) SAVE RO 
3 : - ‘ 
174 017052 010037 017062 MOV RO,2$ ;CURRENT DPB ADDRESS 
175 017056 004037 040714 1$: JSR RO,RMO5 ;CALL_THE DRIVE HANDLER 
176 017062 000000 2$: -WORD Q ;DRIVE BLOCK ADDRESS GOES HERE 
177 017064 Q00000 HAL T ; DRIVER REJECTED REGUEST 
178 017066 012660 MOV (SP) +,RO sRESTORE RO 
179 017070 062760 000001 000046 ADD #1 'SOPERC(RO) : INCREMENT THE OPERATION COUNT 
180 017076 005560 000050 ADC SOPERC+2(RO) : 
181 017102 026060 000034 000012 Soya ws ear? ag? ae COMMAND REQUIRE A CY: INDER CHANGE ? 
1 711 141 
133 B1PI12 $6270 000001 000042 ADD #1, SENDSK (RO) Fg a END OF PASS SEEK COUNT 
184 017120 005560 0C0044 ADC SENDSK+2(RO) ;ADD ANY CARRY 
185 017124 0627 000001 000052 ADD #1, $POSIT(RO) ‘INCREMENT SEEK COUNT 
186 017132 005560 000054 ADC $POS1T+2(RO) ADD ANY CARRY 
187 017136 000207 3$: RTS 


eee ee 


z~ 


PrN 


* 


ANI OOO NAUIF WH OWWNO UP Win) 


NORAD 9 8 et et et et 


24 


017140 


017156 


€17160 
617166 
017174 
017202 
077210 


017216 


36 017274 


017420 


- >. NE eS TET 


RMO5/3/2 PERE 
RAM 


==8 


FXER 


027346 


000050 
000046 


002136 
000010 


002172 - 


000010 
020164 


177776 


051240 
000020 


000004 
000171 


000002 
000161 
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12-0 TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 


: MOV #DPB,RO :DPB ADDRESS 
- MOV #=2,$PACK(RO) "WRITE PACK’ & ‘TEST’ FLAG 
Po MOV #-1,$PACK(RO). = "WRITE PACK’ FLAG 
MOV #1, $PACK (RO) : "READ PACK’ FLAG 
: JSR PC ,WRTPK “CALL READ OR WRITE PACK 
§ RETURN 
WRTPK: JSR PC,GETL :GET ADDRESS LIMITS 
TST SOBERCE2 (RO) 71S THIS THE FIRST OPERATION ? 
BNE 1$ “BR IF NO 
TST $OPERC (RO) "1S THIS THE FIRST OPERATION ? 
BEQ 2$ “BR IF YES 
000027 1$: MOVB  $RMCS1(RO).$PREVO(RO)  ;SAVE CURRENT PARAMETERS 
000032 MOV $SEC (RO) , S$PREVA(RO) 
000034 MOV $CYL (RO), , SPREVAs2 (RO) “SAVE PREVIOUS CYLINDER ADDRES 
000010 MOV —s- S$RMDA(RO) , $SEC (RO) *CURRENT SECTOR & TRACK ADDRESS 
000012 MOV SRMDC (RO) .$CYL (RO) *CURRENT CYLINDER ADDRESS 
MOV ASSEC,R4 “GET INDEX TO SECTOR ADDR STORAGE IN DPB 
JSR PC, CKLMTS *GO CHECK DISK ADDRESS LIMITS 
BR 2$ “BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
000010 MOVB  - MINSEC (RO), $SEC(RO) -RESET SECTOR ADDRESS 
000011 MOVB  -MINTRK(RO) .$TRK(RO) “RESET TRACK ADDRESS 
000012 MOV MINCYL (RO) .$CYL (RO) =RESET CYLINDER ADDRESS 
000024 MOVB  #4.$CODE(RO) =SET CODE TO READ DATA 
000026 CMPB = #=2 ,$PACK(RO) :WAS WRITE DATA PACK IN PROGESS ? 
BEO 7$ “BR IF YES (START TESTING) 
JSR PC ,EOP2 >DROP THE DRIVE (NORMAL TERMINATION) 
161652 BIT #SW04 ,aSWR *1S SWITCH 4 SET ? 
BEQ 8$ BR F NO 
2$: MOV ASSEC RS :GET INDEX TO SECTOR STORAGE 
MOV WRDCNT ,R5 D COUNT IS MAXIMUM 
JSR PC, CHKWC *CHECK WORD COUNT FOR MAXCYL/MAXTRK 
MOV R5. $WRDL (RO) “GET WORD COUNT 
000020 BIC 4377, SWRDL (RO) iis IT LESS THAN ONE SECTOR WORD COUNT ? 
INCB = $WRDL+1(RO) T TO ONE SECTOR 
000004 3%: MOV SWRDL (RO), SwonT (RO) -STORE FOR 2°S COMPLEMENT WORD 
000110 MOV SWRDL (RO), * $HLDWC (RO) 
NEG SWCNT =CHANGE WORD COUNT TO 2°S COMPLEMENT 
000022 MOV #256. SSSEC (RO) >SECTOR SIZE FOR READ 
TSTB ~—s- $PACK (RO) sREAD OR WRITE PACK ? 
BM] “BR IF WRITE 
000024 4$: MOVB #4, $CODE(RO) “CODE FOR READ DATA 
000002 MOVB § #RDDAT, $COMND(ROS :DRIVE CODE FOR OPERATION 
| BR 6$ -SET UP FOR EXIT 
000024 5$: MOVB  #2,$CODE(RO) “CODE FOR WRIDAT 
000002 MOVB = #WRTDAT, $COMND(RO) -OP CODE 


7SAVE PREVIOUS TRACK/SECTOR ADDRESS 


:HOLD WORD FOR 'RELBUF' ROUTINE 
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58 017426 
59 017432 
60 017436 
61 017444 


62 

63 017446 
64 017452 
65 017456 
66 017462 
67 017464 


004737 
110560 
012760 
000207 
005037 
105060 
005060 


020122 
000030 
177777 


001320 


006142 
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JSR PC ,GETPAT :GET PATTERN CODE 
MOVB  RS.$PATTC(RO) “=PATTERN CODE 
0060120 6$: MOV #=1, $NEXT (RO) 

RTS PC : 

7$: CLR PACK sSET ‘TEST’ FLAG 
CLRB $PACK (RO) .  sSET DPB 

8S: CLR $NEXT (RO) 
TST (SP) + “CLEAR STACK LEVEL 
JMP MAIN 


;SET PARAMETERS SELECTED INDICATOR 
;RE TURN 


SCLEAR ‘PARAMETER SELECTED’ INDICATOR 
; JUMP TO MAIN BACKGROUND | OOP 


SEG 0096 


_- 


eS 
' 


CZRMUBO RMOS/3/2 PERF EXER 


MAIN 


PROGRAM 


WO NAMIE WWR$O OW NOUS Wr. 
ll ee edd ad «nd od J 
;w™N 
Ww 
— 
ya 


tt owt ~~ ed = 3) 3 dd td 


24 017564 
25 
26 


27 
28 017572 
29 017576 


33 017612 


34 
35 017614 
36 017620 
37 017624 
38 017626 
39 017634 
40 017642 
41 017650 
42 


43 


004737 


013795 
000305 
042705 
062705 
110560 


016060 
016060 


005737 


004737 


016060 
000137 


027346 
036724 
000001 
000010 
031664 
001464 


000002 
037024 
177776 


002172 


001474 
000050 
000046 


000114 
020164 


26 
020000 


MACRO V04.00 


161446 


000114 
000116 


GENPAR: 


2$: 


. ENABL 
THEAD: 


THEAD1: 


1$: 


23: 
. DSABL 


A Ee tee ee me 


MOV 
JSR 
RETURN 


LSB 
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a PARAMETERS FOR THE OPERATION 
4 


#DPB RO ;DPB ADDRESS 
PC ,GENPAR 
PC,GETLMT ;GET eo LIMITS 
PC ,$RAND :CYCLE THE RANDOM NUMBER GENERATOR 
#SWO,aSWR ;SEE IF SWO SET 
1$ ;BR IF SET = READ ONLY 
#8.,R5 ;READ/WRITE eh TE ay DIVISOR 
PC,GETREM ;GET SELECTION VALUE 
R5,RATIO ; DETERMINE IF READ OR WRITE 
1$ ;BR If READ 
#2,R5 ; SELECT WRITE DATA COMMAND 
2$ :SELECT ADDRESS 
$LONUM,R5 ;SELECT READ OPERATION CODE 
R :SWAP BYTES IN R5 
Tag R5 :MASK OUT ALL BUT BIT 0 
; TABLE OFFSET FOR READ CODE 
RS. SNCOD DE (RO) COMMAND SELECTION CODE TO CONTROL BLOCK 
$RMDA(RO) , SNSEC (RO) zSECTOR AND TRACK 


SRMDC (RO), $NCYL (RO) 


; CYLINDER NUMBER 


Serer —* RANDOM ADDRESS SELECT 7? 
SOPERC +2¢RO) :IS THIS THE FIRST OPERATION ? 
THEAD1 ;BR IF NO 
aie -I1S THIS THE FIRST OPERATION ? 
1$ : IF YES 
ASNSEC RS :GET INDEX TO SECTOR ADDR STORAGE IN DPB 
PC, CKLMTS -GO CHECK DISK ADDRESS LIMITS 
$ BR IF NOT AT END OF SEQUENTIAL ADDRESSING 
MINSEC (RO), SNSEC(RO) :RESET SECTOR ADDRESS 
MINTRK (RO) ,SNTRK(RO) :RESET TRACK ADDRESS 


MINCYL (RO) .SNCYL (RO) 
RANS IZ 


sRESET CYLINDER ADDRESS 
:GO CHECK FOR RANDOM WORD SIZE 


SEQ 009% 


— CZRMUBO RMO5/3/2 PERF EXER 


MAIN PROGRAM 


MH OOONAULSWN OOO VOUS Wwr- 
BDOOOOCOOO 
—_ — .1 .. 3 .. ..43 = 
SNS 
Oo 
™N 
Nm 


RORID 3 3 SB Bt -  e 


rr re ee ee 
ee ee We stg eater 


016005 
02 


966005 
010560 


016005 


066005 
110566 


016005 


00 
110560 


013705 
005757 


012704 
004737 


122760 
001005 


010560 


000124 
000126 


000126 


000116 


000130 
000132 


000132 
031664 


000132 
000115 


000134 
000136 


000136 
051664 


000136 
000174 


001450 
001462 


031664 
000006 
036724 
000114 
020316 
000002 
000377 


000400 
000020 
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000112 


;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘MINCYL’® & ‘MAXCYL' 


RANCYL: MOV 
CMP 


1$: MOV 


MAXCYL(RO),RS ;GET MAXIMUM CYLINDER ADDRESS 
MINCYL(RO),R5 ;"MINCYL* AND ‘MAXCYL* THE SAME ? 
1 ;BR_ IF THEY ae 


$ 

MINCYL(RO),R5  :GET NUMBER OF ALLOWABLE CYLINDERS 

R5 i INCREMENT DIFFERENCE TO USE AS DIVISOR 
PC,GETREM “GET THE RANDOM AUGMENT 
MINCYL(RO),RS :NEW CYLINDER ADDRESS 

RS. rer RON “STORE CYLINDER ADDRESS IN DPB 


;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ‘MINTRK’ & ‘MAXTRK’ 


RANTRK: MOV 
CMP 


1$: MOVB 


MAXTRK(RO),R5  ;GET MAXIMUM TRACK ADDRESS 
MINTRK(RO),R5 ;"MINTRK* AND *MAXTRK’ THE SAME ? 

1$ ;BR_IF THEY ARE 

MINTRK(RO),R5  ;GET NUMBER OF ALLOWABLE TRACKS 

R5 ; INCREMENT DIFFERENCE TO USE AS DIVISOR 
PC,GETREM :GET THE RANDOM AUGMENT 


MINTRK (RO) ,R5 
R5, $NTRK (RO) 


;NEW TRACK ADDRESS 
;STORE TRACK ADDRESS IN DPB 


:GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES "MINSEC’ & *MAXSEC’ 


RANSEC: MOV 


1$: MOVB 


MAXSEC(RO),.RS5 ;GET MAXIMUM SECTOR ADDRESS 
MINSEC(RO),RS ;*MINSEC’ AND ‘MAXSEC* THE SAME ? 

1$ ;BR IF THEY ARE 

MINSEC(RO),R5 ;GET NUMBER OF ALLOWABLE SECT 

R5 ; INCREMENT DIFFERENCE TO USE AS > DIVISOR 
PC,GETREM :GET THE RANDOM AUGMENT 

MINSEC(RO) R SNEW SECTOR ADD 


RESS 
R5, SaseccROy “STORE SECTOR ADDRESS IN DPB 


GENERATE A RANDOM BUFFER LENGTH BETWEEN 6 & THE VALUE IN ‘WRDCNT" 


RANSIZ: MOV 


1$: JSR 
BR 


2$: MOV 


4S: MOV 


WRDCNT ,R5 ;GET MAX WORD COUNT 

RANDWC ;SELECT A RANDOM WORD COUNT ? 
2$ :BR IF NOT 

R5 ; INCREMENT THE MAXIMUM WRD CNT 
PC ,GETREM sDIVIDE BY MAX VALUE 


RS 46 = WORD COUNT LESS THAN 6 ? 


2$ IF NO 
PC, SRAND :CYCLE THE RANDOM NUMBER GENERATOR 
RANS IZ 
#SNSEC ,R4 ;GET INDEX TO SECTOR STORAGE 
PC, CHKWC >SEE IF WORD COUNT IS TOO LARGE 10 FIT 
2 IN REMAINDER OF TRACK. IF vai THEN ADJUST 
D COUNT TO FIT ON TRACK 
#2, $NCODE (RO) WRITE OPERATION ? 
4$ :BR IF NO 
: ‘ila ie iF i, PARTIAL SECTOR ? 


ELSE. 
#256. ,R5 :WRITE AT LEAST ONE SECTOR 
R5,$WRDL (RO) ;WORD COUNT 


:GET A RANDOM PATTERN NUMBER 


LL LLL LL I A TS A RT EE a SN Nm ee —- 


SEQ 0100 


CZRMUBO "a PERF EXER 


MAIN PROGRAM 


7 

77 620156 
78 020160 
79 020162 


000207 


000002 000112 RANPAT: gee 
020122 JSR 

000113 MOVB 
177777 000120 RANXIT: MOV 
RTS 

sROUTINE TO 

000020 GETPAT: MOV 
001460 TST 
BEQ 

001460 MOV 
BR 

031664 1$ JSR 
TST 

BNE 

036724 JSR 
BR 

2$: ASL 

RTS 


a oe err eee ee —_ = 
-” — re es ee ree em ee me ee eee 


#2, $NCODE (RO) 
RANX1T 


PC,GETPAT 
R5,$NPATC (RO) 
lade 


SELECT A PATTERN 


#16. ,R5 
PATTERN 


1$ 
PATTERN,R5 
2$ 
PC,GETREM 
R5 

2$ 

PC, $RAND 
GETPAT 

R5 

PC 


K 8 
MACRO VO04.00 4=APR=-81 01:42:25 PAGE 17-1 


es OPERATION ? 


;BR_IF NO 
;GET PATTERN CODE 


SMOVE PATTERN CODE TO CONTROL BLOCK 


:SET PARAMETERS SELECTED INDICATOR 
TURN 


;SELECT PATTERN 
sENABLE RANDOM PATTERN SELECTION ? 


;YES 
—_ INDEXED PATTERN 


“GET CODE 
“WAS PATTERN ZERO SELECTED ? 


:BR IF NOT ZE 
oho YY RANDOM NUMBER GENERATOR 
“MAKE CODE INTO TABLE INDEX 


SEQ 0101 


 C7RMUBO RMOS/3/2 PERF EXER 
MAIN PROGRAM 


020164 


22 020226 
23 020250 
24 
25 


26 
27 020234 
28 020240 


31 020252 
32 020260 
35 020262 
34 020266 
35 020274 
36 020300 
37 020306 
38 0203510 
39 020514 


116014 


121460 


000002 
000126 
000001 
000132 
0001 36 
0001 36 


0001 34 
0001 36 
000001 
000001 
000136 
000132 
000002 
000002 
000002 
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000126 


600002 
000132 


000001 


000130 


000001 
000124 


a ee EE ee ee ee er ee | 


;THIS ROUTINE IS USED TO CHECK ADDRESS LIMITS BEFORE THE NEXT COMMAND 
:1S PFRFORMED. ALSO, IT WILL CHECK FOR MAXIMUM ADDRESS LIMITS TO LOOK 
:FOR AN END TO THE SEQUENTIAL ADDRESSING. 


¢ CALL: 

: MOV ADPB RO ;DP8 ADDRESS 

; MOV #POINTER,R4S sPOINTER TO SECTOR STORAGE ($SEC OR $NSEC) IN DPB 
; JSR PC,CKLMIS ;CALL ADDRESS LIMITS ROUTINE 

; BR 27? 7RETURN HERE IF NOT END OF SEQUENTIAL _ 
Co ;ELSE, RETURN HERE TO RESET DISK ADDRESS 


“RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
:R4 = POINTER TO SECTOR STORAGE BEFORE CALLING THE ROUTINE 


CKLMTS: pon ;POINT ei STORAGE POINT IN DPB 


RO,R4 
e(R4) sMINCYL (RO) CYLINDER ADDRESS BELOW MIN. ? 


Ge: 
MOV MINCYL(RO), 2(R4)’ ;RESET CYLINDER TO MIN. 
1$: CMPB 1(R4) ,MINTRK (RO) ;1S TRACK ADDRESS BELOW MIN. ? 
AGE 2$ ;BR IF NO 
MOVB MINTRK(RO) ,1(R4) ;RESET TRACK TO 4 tr 
2$: CMPB (R4) RMINSEC (RO) :1S SECTOR ADDRESS BELOW MIN. ? 
BGE 3$ :BR IF NO 
MO MINSEC(RO),(R4) RESET SECTOR TO MIN. 


;LOOK FOR MAXIMUM LIMITS AND END OF SEQUENTIAL ADDRESSING 


3$: cme {R6) .MAXSEC(RO) 1S SECTOR ADDRESS AT MAXIMUM ? 
MOVB  MINSEC(RO).(R4) :RESET SECTOR ADDRESS 
INCB. «1 (RG) : INCREMENT TO NEXT TRACK ADDRESS 
4$: CMB 1(R4) ,MANTRK (RO) : wl TRACK ADDRESS OVER MAXIMUM ? 
MOVB  MINSEC(RO),(R4) :RESET SECTOR ADDRESS 
MOVB _— MINTRK (RO) .1(R4) =RESET TRACK ADDRESS 
INC 2(R4) : INC REMENT TO NEXT CYLINDER ADDRESS 
S$: CHP (RG) -MAXCYL (RO) ir S CYLINDER ADDRESS OVER MAXIMUM ? 
ADD #2, (SP) “ADJUST RETURN TO RESET DISK ADDRESS PARAMETERS 
6$: RTS PC RETURN 


SS OE ame me ee 


SEQ 0102 


+ MAIN PROGRAM 


etre neem eet net ee eee - 


020516 


ee ed ed ed td oe 2 
OONAMEWNNY HOOWONO US wr 


=S 
>) 
* 


28 020554 
29 020362 
30 020364 
31 020372 
32 020374 
35 020376 
34 0 2 


43 020426 


CZ7RMUBO RMOS/5/2 PERF EXER 


000136 
000134 
000732 
000130 


000124 
000130 


000134 


000400 
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001424 


001426 


000002 
000001 


; THIS ROUTINE IS _, TO enh yd AND CHECK THE WORD COUNT FOR THE 


“DRIVE THAT IS TO DO A DATA TR 
IF THE CALCULATED MAXIMUM WORD COUNT, 


; CYLINDER, 
THEN i DESIRED WORD COUNT IS CHANGED, SO T 


:COUNT (CONTENTS OF R5), 


i THE | WORD COUNT WILL NOT CAUSE A 


1$: 
2$: 


3$: 


4$: 


#0PB,RO | 
#POINTER,R4 
PC, CHKWC 


TRANSFER 


ON THE MAXIMUM TRACK OF THE MAXIMUM 
EXCEEDS THE DESIRED ont 
TRACK OVERFLOW DURING THE TRANSFER. 


;DPB ADDRESS 

:POINTER TO SECTOR STORAGE ($SEC OR $NSEC) IN DPB 
;CALL_ CHECK WORD COUNT ROUTINE 

:RETURN WITH RS CONTAINING THE DESIRED WORD COUNT 


DPB ADDRESS BEFORE CALLING THE ROUTINE 
POINTER TO SECTOR STORAGE BEFORE CA! LING THE ROUTINE 
DESIRED WORD COUNT BEFORE CALLING THE ROUTINE 


RO,R4 
MINSEC (RO) 


$ 
MAXSEC (RO). SECLMT 


MINTRK (RO) 
1$ 


oe STRKLMT 


72" sca »2(R4)" 
MAXTRK(RO).1(R4)" 
4$ 


(R4) ,R4 
MAXSEC (RO) ,~(SP) 
R4, (SP) 
R4 

#256. RS 
(SP) 

3$ 

(SP) + 

R5 ,.R4 

4$ 

R4,R5 

PC 


;POINT TO SECTOR as POINT IN DPB 
‘ALLOW SPIRAL RD/WR 


sALLOW SPIRAL RD/WRT ? 
;BR IF NO 
ALLOW 2 gee RD/WRT ? 
"BR ;ALLOW SPIRAL RD/WRT ? 
7WHEN SPIRAL RD/WRT IS ALLOWED, THEN CHECK 
;TO MAKE SURE YOU DO NOT SPIRAL OVER MAXIMUM 
: TRACK ON MAXIMUM CYLINDER 

;0N MAXIMUM CYLINDER ? 

;0N MAXIMUM TRACK ? 
;BR IF NO 
:GET STARTING SECTOR pork a 

;GET MAXIMUM SECTOR 

T NUMBER SECTORS TO BE XFERD 


“CLEAR R 
SADD 1 SECTOR OF WORDS TO R4 
A> gt ALL SECTORS YET ? 


;BR IF NO 
sRESTORE STACK 
:TQ0 “gwd WORDS FOR TRACK ? 


:BR IF 
:YES, CHANGE WORD COUNT 
ETURN 


SEQ 0104 


SN 


N PROGRAM 


Ne St SH tS 
COON AUILSWN —ODODNA NFS W— 
© OO 
R 
p> 
© 


21 020516 
020522 


010546 
105760 
00 


ve RMO5/3/2 PERF EXER 


000026 
002136 
177701 
000006 


000012 
000010 


023216 


000020 
000020 


000004 
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000027 
000027 
000112 


000034 
000032 


160424 
000024 


000002 
000002 


000027 


00002¢ 
000004 
000110 


1 ge TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 


LODPAR: 


1$: 


2$: 


3$: 


4$: 


JSR 
JSR 
RETURN 


#2, $SSEC(RO) 


#DPB ,RO ;DPB ADDRESS 

PC,GENPAR ;GENERATE THE PARAMETERS 

PC,LODPAR ;LOAD THE PARAMETERS JUST GENERATED 
5,—(SP) ;SAVE R5 

$PACK (RO) ;'R' OR ‘W* COMMAND FOR THE DRIVE ? 

4$ :BR_IF YES 

ag SpE, $PREVO(RO)  ;SAVE CURRENT ‘aie 

#*C76,$PREVO(RO) ; STRIP GO,AND IE BITS 


46, SNCODE (RO) sar" IF NEXT OPERAT JON IS READ OR WRITE 


$CYL(RO), SPREVA+3 (RO) :SAVE STARTING CYLINDER 
$SEC(RO) ; $PREVA(RO) “SAVE STARTING SECTOR AND TRACK 


$ 

PC ,READDR “GET THE DECREMENTED SECTOR AND TRACK ADDRESSES 
(SP) +, $PREVA+2(RO) :CYLINDER ADDRESS 

(SP) +. $PREVA+1 (RO) * TRACK ADDRESS 

(SP) +. $PREVA(RO) “SECTOR ADDRESS 

#SW06, .@SWR i SWITCH 6 SET ? 

SNCODE (RO), SCODE (RO) LOGICAL CODE FOR OPERATION 

SNCODE (R LOAD RS FOR USE AS TABLE INDEX 

COMTBL (RS), ScOMND (ROD : COMMAND CODE 

#uCKD, ; $COMND (RO) eas wil NEW COMMAND A WRITE CHECK DATA ? 
#60, ,$PREVO(RO) :WAS PREVIOUS COMMAND Ai WRITE DATA ? 


#RDDAT . SCOMND (ROS =CHANGE WRITE CHECK TO READ DATA COMMAND 
#4,$CODE(RO) | ;:CODE NUMBER CHANGED TO READ DATA 


SNPATC(RO) ,SPATTC(RO)  ;PATTERN CODE 

;TRACK AND SECTOR ADDRESSES 
:CYLINDER ADDRESS 

; INITIAL VALUE OF SECTOR SIZE 
HEADER OF OPERATION ? 


F NOT 
:ADD HEADER SIZE 
$WRDL (RO) , SWCNT (RO) :GET WORD COUNT AND 
$WRDL (RO). SHLDWC (RO) [HOLD WORD FOR "RELBUF' ROUTINE 
SWCNT (RO) sMAKE IT 2°S COMPLEMENT 
(SP)+,R5 RESTORE R5 
PC ;RETURN 


#256. , $SSEC (RO) 
fi , SCODE (RO) 


CZ7RMUBO RMO5/3/2 PERF EXER 
PROGRAM 
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MAIN 
} : ROUT INE TO COMPRESS A LIST 
z : V #ADDRS,R1 sCOMPRESS LIST STARTING AT THIS ADDRESS 
i, : JSR PC, CMPRES 
2 : RE TURN 
7? 020700 016111 000002 CMPRES: MOV 2(R1),(R1) : COMPRESS THE TABLE IN R1 
8B 020704 001402 BEQ 1$ *BR WHEN ZE RO F OUND 
9 020706 005721 TST (R1)+ : INCREMENT R 
10 020710 000773 BR CMPRE S * CONT INUE COMPRESSING TABLE 
Hf 020712 000207 1$: RTS PC RE TURN 
13 : ROUT INE TO. DETERMINE IF THE ERROR IS AT A LOCATION ON THE DISK, DEFINED 
1 IN THE BAD SECTOR TABLE FOR THE DRIVE. 
16 : JSR PC, SPOTCK 
17 : RETURN1 :ERROR AT AN ADDRESS IN TABLE 
18 : RE TURN2 “NO TABLE ENTRY FOR ERROR ADDRESS OR 
19 : “PARAMETER "MESSAGE’ IS 0 
21 020714 SPOTCK: 
020714 010146 MOV R1,=(SP) : PUSH R1 ON STACK 
22 020716 012701 000144 MOV #SBDSEC,R1 : INCREMENT FOR BAD SECTOR TABLE 
23 020722 060001 ADD RO,R 7ADD THE BLOCK'S STARTING ADDRESS 
020724 004737 023216 1$: JSR PC -READDR “DECREMENT THE SECTOR/ TRACK ADDRESS 
25 020730 021126 CMP (Ri), (SP)+ [ON THE SAME CYLINDER 
26 020732 00102 BNE “BRANCH IF 
27 020734 122761 177777 000003 (MPR ss #1, 3(R1) “ALL BAD TRACKS ? 
28 020742 001002 , BNE 2$ :BR IF NO 
29 020744 095726 TST (SP)+ *ADJUST STACK AND 
30 020746 03 BR 3$ 7GO CHECK SECTORS 
31 020750 122661 000003 2$: CMPB —s-s« (SP) +, 3(R}1) =COMPARE THE TRACK ADDRESS 
32 020754 013 BNE “BR IF IT IS NOT EQUAL 
32 020756 122761 177777 000002 3%: (MPR ss #=1,2(R'1) TALL BAD SECTORS ? 
34 020764 001002 BNE 4$ :BR IF NO 
35 020766 005726 TST (SP) + [ADJUST STACK AND 
36 020770 13 BR 8$ “CHECK "MESSAGE" 
37 020772 122661 000002 4$: CMPR —s« (SP) +, 2(R'1) >COMPARE THE SECTOR ADDRESS 
38 020776 001003 BNE 7$ “BR IF NOT EQUAL 
9 021 07 BR 8$ -CHECK "MESSAGE 
40 021002 005726 5$ TST (SP)+ =CLEAR OFF THE STACK 
41 C€21004 005726 6$: TST (SP) + > INCREMENT THE STACK POINTER 
021 062701 000004 7$: #4,R1 =GO TO THE NEXT LOCATION IN, THE TABLE 
43 021012 005711 TST (Ri) ZEMPTY ENTRY OR TERMINATOR ? 
44 021014 100407 BMI 9$ F YES 
45 021016 74, BR 1$ >TRY NEXT SECTOR 
46 021020 005737 001472 8S: TST MESSAGE :PRINT THE ERROR ANYWAY ? 
47 021024 001 BNE 10$ F NOT 
48 021026 012737 177777 001342 MOV #~1 ,BADSEC <SET THE INDICATOR FOR THE IDENTIFICATION LiNE 
49 02105 4 062766 000002 000002 98: ADD #2,2(SP) = INCREMENT THE RETURN 
021042 0612601 MOV (SP)+,R1 ::POP STACK INTO R1 
51 021044 000267 RTS PC “RETURN 


OR AEC OE A ee ee ee Oe ee ee eee _— 


Na 


WOINAMLSWR OO O@ONOAPWH)-o 


OOOCO9OVO2000° =) 
ROROFOROFORoROROROROROFORD 


NUS 


35 021126 
0 


36 021134 
37 021140 
38 021144 
39 021146 
40 021154 


56 021242 


lasceibataaiaannnaseis 


032777 


CZRMUBO ow ore PERF EAER 
MAIN PROG 


002000 


075555 


021272 
073706 
000027 
177701 
021222 
002072 
002072 
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160100 


160064 


021266 


021266 


CRO RRRRRRERSAAARAASASALARRRRRARARR RRR RR RRR RAR RRR RRA RRR RRR RR RRR SASS SSS, 


"SBTTL ERROR MESSAGE GENERATION ROUTINES 


SS RRAAMAAARAAARAHAAAAAAAAEAUAAAAAAGAAAAAAARARARAEAAAAAHANAAAAAAAEES 


:PRINT LINE 1 OF ERROR MESSAGE: 
:"HH:MM:SS' 


LINE1: BIT #SW10,@SWR sSWITCH 10 SET ? 
BEQ 1$ iBR IF WOT 
TYPE ron RING THE BELL 

1$: BIT #SW15,aSWR * INHIBIT TYPEOUT ? 
BEQ 2$ “BR IF NOT 
DISPLY ,$CRLF :CR=LF 
DISPLY ,$CRLF : CR=LF 
BR $ EX] 

2$: DISPLY ,S$CRLF : CR=LF 
DISPLY ,S$CRLF : CR-LF 
JSR PC, STIME : TYPE THE TIME 
DISPLY ,BLNKS1 : TYPE 1 BLANK 

3$: RTS PC :RETURN & TYPE DESCRIPTION 


sPRINT LINE 2 OF ERROR MESSAGE 
:"PRSNT COMMAND = XXXX PREV COMMAND = XXXX’ 
;"* ERROR AT BAD TRACK/SECTOR’ 


; ‘DRV RMCS1 RMCS2 RMDSi RMER1 RMMR2 RMERZ RMECT RMEC2’ 
; *RMWC RMBA RMDA S A RMDB RMMRIT 8 RMDT* 
; *RMSN RMOF RMDC RMCC STATUS" 


;"RMBAE RMCS3° (RH70 ONLY) 
; "BUS ADDRESS - WORD ey Ad , CONSISTENT" 


= MXXXXX RMWC = 
* "BUFFER ADR = XXXXXX URD oe XXXK ACTUAL NMBR WRDS XFRD = Xxx’ 
LINE2: 
R3,-(SP) 7 :PUSH R3 ON STACK 
MOV R4,~(SP) : PUSH R4 ON STACK 
R5,~-(SP) : PUSH RS ON STACK 
DISPLY ,$CRLF :CR-LF 
CLR 4$ ‘CLEAR MESSAGE ADDRESS STORAGE 
CLR R4 = WORKING REGISTER 
MOV #LIN2ZC,4$ :ADDRESS OF "PRSNT COMMAND = ° MSG 
VB SRMCS7(RO),R4 ;GET THE OPCODE 
BIC #*C76,R4 :SAVE ONLY SIGNIFICANT BITS 
JSR PC,1% - TYPE THE FIRST MNEMONIC 
TST S$ SEE IF MNEMONIC ENTRY FOUND 
BEQ LINE2A BR IF NOT 
MOV ALIN2P,4$ “ADDRESS OF *PREVS COMMAND = ° MSG 
MOVB SPREVO(RO) RS =PREVIOUS OPERATION CODE 
BIC #*°C76,R4 : SAVE ONLY SIGNIFICANT BITS 
JSR PC,1$ ' s TYPE THE PREVIOUS MNEMONIC 
BR LINEZA ; CONTINUE 
1$: CLR R5 = CLEAR THE TABLE INDEX 
23: CMPB OPTBL (RS) ,R4 * LOOK FOR THE OPCODE 
BEQ 3$ “BR WHEN OPCODE — OPCODE 


TSTB —sOPTBL(R5) 
BM 6$ 


INC R5 
BR 2$ 


a a a END OF T 


;BR IF END 
> INCREMENT THE POINTER 
; CONTINUE = NOT END OF TABLE 


LLL TT ET AD nee en et re em ee te ee ee a 


SEQ 0106 
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ERROR MESSAGE GENERATION ROUTINES SEQ 0107 
57 021244 006305 3$: ASL RS sSHIFT INDEX 
S8 021246 006305 ASL RS “SHIFT THE INDEX 
59 021250 006305 ASL R5 “SHIFT THE INDEX 
60 021252 012737 002112 021272 MOV A#MNTBL , 5$ “ADDRESS OF ASCII TEXT TABLE 
61 021260 060537 021272 ADD RS,5$ :ADD THE INDEX 
62 021264 104414 DISPLY :TYPE IT 
| 63 021266 000000 4$: WORD 0 “ADDRESS OF 'PRESENT’ OR ‘PREVIOUS’ MESSAGE 
| 64 021270 104414 DISPLY : TYPE THE OPERATION MNEMONIC 
| 65 021272 000000 S$: .WORD 0 “ADDRESS OF MESSAGE 
6 021274 000207 RTS PC *RETURN TO MAIN ROUTINE 
68 021276 005737 001342 LINE2A: TST BADSEC :PRINT THE BAD SECTOR LINE ? 
69 021302 001404 BEQ LINE 2B “BR IF NOT 
70 021304 104414 001203 DISPLY ,$CRLF :CR- 
71 021310 104414 073727 DISPLY ,LINeS ‘ERROR ADDRESS DEFINED AS BAD AREA 


72 021314 104414 0012035 LINE2B: DISPLY ,S$CRLF ; CR. 
73 021320 104414 073240 DISPLY ,DH14 : STANDARD RM REGISTER HEADER 


YPE 1 BLANK 
75 021330 013746 001324 MOV UNIT ,=(SP) ;PUT THE DRIVE NUMBER ON THE STACK 
76 021334 004737 023176 JSR PC, -LINDEC ; TYPE DRIVE NUMBER 


-BLNK :TYPE 2 BLANKS 
78 021344 012705 073600 MOV #DT14,R5 :REGISTER INDEXES 
79 021350 004737 021532 JSR PC,3$ ;PRINT THE REGISTERS 
80 021354 032777 000040 157572 BIT #SWO5 ,ASWR ;PRINT THE OPTIONAL REGISTERS ? 
81 0.1362 001031 BNE 1$ ;BR IF NOT 


021364 07 ,DH15 
83 021370 012705 073622 MOV #DT15,R5 ;SECOND DATA LINE 
84 021374 004737 021532 JSR PC,3$ :PRINT THEM 


104414 DH16 
86 021404 012705 073644 MOV #DT16.R5 s THIRD DATA LINE 
87 021410 004737 021532 JSR PC, 3$ “PRINT THE REGISTERS 
89 021414 013746 001234 MOV $CPUOP.-(SP) | :CHECK THE CPU ‘RH) TYPE 
90 021420 042716 003777 BIC #°C174000,(SP) :LEAVE THE CPU BITS 
91 021424 022726 030000 CMP #30000,(SP)+  ;:SEE IF RH79 
92 021430 001006 BNE 1$ -BR IF 
93 021432 104414 073510 DISPLY .DH17 
94 021436 012705 073660 MOV aT? R5 ;OPTIONAL FOURTH DATA LINE 
95 021442 004737 021532 JSR C,3$ PRINT THE REGISTERS | 
97 021446 032760 000100 000016 1S: BIT wits, S$TATUS(RO)  . ;DATA ERROR ? 


: NOT 
99 021456 016046 000020 MOV SWRDL(RO),-(SP) ; TRANSFER WRD CNT 
100 021462 066016 002140 ADD SRMWC(RO),(SP) ;ADD REMAINING WORD COUNT 
021466 006516 ASL (SP) ;CONVERT TO AN BYTE INCREMENT 
102 021470 066016 000006 ADD $BUF(RO),(SP) ;BUFFER STARTING ADDRESS 
103 021474 022660 002142 CMP diene imeeaaatg : CORRECT BUFFER ADDRESS ? 


. j6R IF YES 
104414 072665 DISPLY ,.EM46 = Fg AND WORD COUNT ARE NOT CONSISTENT® 


06 . SCRLF R=L 
2 004737 021624 | JSR PC,LINE3D SPRINT LINE y OF ERROR MESSAGE 
6 004737 022236 JSR PC LINES ;PRINT LINE 4 OF ERROR MESSAGE 


2 23: : 
021522 0612605 MOV (SP)+,R5 ::POP STACK INTO R5 
021524 012604 MOV (SP)+,R4 :;POP STACK INTO R4 
021526 012603 MOV (SP)+, *R3 >:POP STACK INTO R3 
21530 000207 RTS PC :RETURN TO ERROR PROCESSING ROUTINE 


110 0 
117 021532 012546 3$: MOV (R5)+,=(SP) :PUT THE REGISTER INDEX ON THE STACK 
112 021534 060016 ADD RO, (SP) “ADD DRIVE'S TABLE ADDRESS 


-- eee eee TE 
en ss eens set tsetse venenatis 
_ ES SE _—— 


021566 
021572 


021574 
621600 


AIR RI RURINIRINNINTy tend ab niet 
WRC O@ONAUWISWNH -OWVOONOUS 


OA 


37 021602 
38 021606 
39 021612 


144 027614 
145 021620 


9 
150 021624 
1 021632 


9 021670 


el weed ed eed ceed eed oe = od = 


~— = 
oe et 
Who 


164 021672 
165 021676 


168 021712 
169 021716 


ee er ee ree cee 


017646 
004737 


104414 
000517 


104414 
000514 


004737 
104414 
000207 


004737 
000137 


032777 


000207 


104414 
016046 
004737 
104414 


104414 
005046 
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000000 
023144 


075554 


001205 


073763 


074001 


022740 
001203 


022140 
022172 


000040 
074140 


001203 


074041 


074160 
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157322 


MCV @(SP) ,=(SP) ; VALUE 
JSR PC,LINOCT :TYPE IT 
ST (SP) + ;CORRECT THE STACK POINTER 
DISPLY ,BLNKS2 : TYPE 2 BLANKS 
ST (R5) :AT END OF LINE ? 
BNE 3$ 3BR IF NOT 
4$: DISPLY cal ; CR=LF 
RTS PC RE TURN 


;PRINT LINE 3 OF ERROR MESSAGE 


:"ERROR AT CCC TT SS_ PREV ADR = CCC TT SS* 
LINE3: DISPLY .LINMS3 sLINE 3 ENTRANCE 
BR LINS.1 sFINISH PRINTOUT 


sPRINT LINE 3A OF ERROR MESSAGE 
:"START CYL = CCC END CYL = CCC 


LINE3A: DISPLY ,LINN3 LINE 3A ENTRANCE 
BR LINS.1 FINISH ERROR LINE 


:PRINT LINE 3B OF ERROR MESSAGE 
:"START CYL = CCC END CYL = CCC ACTUAL CYL = CCC’ 


LINE3B: JSR PC,LIN3S.3 ;LINE 3B ENTRANCE 
DISPLY ,$CRLF 
RTS PC 

;PRINT LINE 3C OF ERROR MESSAGE 

:"START CYL = CCC END CYL = CCC ACTUAL CYL = CCC 


LINE3C: JSR PC,LIN3.3 3LINE 3¢C ENTRANCE 
. J» LINS.4 7F INISH MESSAGE 


a LINE 35D OF ERROR MESSAGE 


TRK = TT* 


> "RMBA = KXXXXX RMWC = XXKXXX' 

LINE3D: BIT #SWO5 ,aSWR sSWITCH 5 SET 
BEQ 1$ 7BR IF IT Is 
DISPLY ,LINBS3 ;RMBA = 
MOV SRMBA(RO),-(SP) ;BUFFER ADOR REG CONTENTS 
JSR PC,.LINOCT ; CONVERT TC OCTAL AND TYPE IT 
DISPLY ,LINWS -* RMWwWC = 

V SRMWE (RO) ,- (SP) WORD COUNT REGISTER CONTENTS 

JSR PC,LINOCT : CONVERT TO OCTAL AND TYPE IT 
DISPLY ,S$CRLF 

1$: RTS PC 


;PRINT LINE 3€ OF ERROR MESSAGE 
:'START CYL = CCC START TRK = TT ~ START SEC = SS' 


LINE3E: DISPLY ,LINS3 :"START CYL 
MO $CYL (RO) ,-(SP) eee CYL tO. STACK 
LINDEC TYPE IT IN DECIMAL 
: TYPE 2 BLANKS 
:"START TRK = ' 
“CLEAR STACK 


LLL LL LOS EY ELC | OE ON EE i em mm ————— eee 


a — 
—_— Oe 


| 
| 
| 
| 
| 
| 
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230 
231 


232 


021756 


021760 


022030 


022032 


022136 


022140 
022144 


164 
022170 


eee — eS ee mee eee owe 


116076 


104414 
000207 


032777 


000297 


004737 


000207 


——— ee - a 
—— - LO re CS Ee ee ee Oe Pe ee cee me et 


000011 


074174 
000010 


000040 
074131 


001205 


023216 


000034 
023176 
073776 


000033 
023176 
074017 


000032 
023176 
001203 


074041 


023176 


7. 
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ERROR MESSAGE GENERATION ROUTINES 
170 021720 
021724 


MOVB $TRK (RO), (SP) 
JSR PC,LINDEC 
DISPLY ,BLNKS2 
DISPLY ,LINSS3 

CLR = (SP) 

MOVB $SEC (RO), (SP) 


JSR PC,LINDEC 
DISPLY ,$CRLF 
RTS PC 


:PRINT LINE 3F OF ERROR MESSAGE 


: TRACK TO STACK 

+ TYPE IT IN DECIMAL 
; TYPE 2 BL ANKS 
"START SEC = ' 


“CLEAR STACK 
;SECTOR ADDR TO STACK 
sTYPE IT IN DECIMAL 


S"RMDA = XXXXXX = RMCA = XXXXKX! 
157166 LINE3F: BIT #SW5S ,@SWR SWITCH 5 SET 2 
BEQ 1$ :BR IF 
DISPLY ,LINDAS TRNAS! 
$RMDA(RO),-(SP) ;PUT SECTOR/TRACK ADDRESS ON THE STACK 
SR PC,.LINOCT :TYPE IT 
DISPLY .BLNKS2 ;TYPE 2 BLANKS 
DISPLY ,LINCA3 * RMD 
MOV $RMDC(RO),-(SP) PUT DESIRED CYLINDER ADDRESS ON THE STACK 
JSR PC ,LINOCT :TYPE IT 
DISPLY ,$CRLF 
1$: RTS PC 
:'CCC TT SS PREV ADR = CCC TT SS° 
LIN3.1: JSR PC .READDR ;DECREMENT TRACK Aiw SECTOR ADDRESS 
JSR PC,LINDEC TYPE IT IN DECIMAL 
DISPLY ,T :PRINT ' T* 
JSR PC,LINDEC iTYPE TRACK IN DECIMAL 
DISPLY .S PRINT 
JSR PCL INDEC ;TYPE SECTOR ADDRESS 
DISPLY 3 ;PRINT "PREV ADDR 
MOV $PREVA+2(RO) ,~ (SP) ;PREVIOUS CYLINDER 
JSR PC,LINDEC ;TYPE IT IN DECIMAL 
DISPLY ,T :PRINT * T° 
CLR -(SP) :MAKE ROOM ON THE STACK 
MOVB —- $PREVA+1(RO), (SP) :PREVIOUS TRACK ADDRESS 
JSR PC,LINDEC TYPE IT IN DECIMAL 
DISPLY ,S :PRINT * S' 
CLR ~(SP) E ROOM ON THE STACK 
MOVB  $PREVA(RO),(SP) “PREVIOUS SECTOR DDRESS 
JSR PCL INDEC :TYPE IT IN DECIMAL 
DISPLY .$CRLF 
RTS ; PC 
;*START CYL = CCC END CYL = CCC 
LIN3.3: DISPLY ,LINS3 ;LINE "3B & 3C' ENTRANCE 
MOV SPREVA+2(RO) ,~(SP) ;PREVIOUS CYLINDER 


JSR PC, LINDEC 
DISPLY ,LINENS 

MOV SRMDC (RO) (SP) 
JSR PC,LINDEC 

RTS PC 


ee een a es 


:TYPE IT IN DECIMAL 
:PRINT "END CYL" 
:PRESENT CYLINDER 
sTYPE IT IN DECIMAL 


SEQ 0109 
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104414 
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"ACTUAL CYL = CCC TRK = TT* 


LIN3S.4: DISPLY ,LINAS 
MOV CYLNDR,=(SP) 


SEQ 110 


sPRINT ‘ACTUAL’ 
:ACTUAL CYLINDER 
;CLEAR THE FORMAT BIi 


:TYPE 17 IN DECIMAL 


074110 


002745 
023176 
001203 


022234 


032760 
001427 
104414 
016046 

37 


00010C 
074210 


eeare 


023176 
022320 001203 


022324 


268 022526 074274 


0 
BIC #B1T12, (SP) 
JSR PC,LINDEC 
DISPLY ,LINTS3 
CLR -(SP) 
MOVB $RMDA+1(RO),(SP)- 
JSR PC,LINDEC 
DISPLY ,$CRLF 
RTS 


sPRINT LINE 4 OF ERROR MESSAGE 
; "BUFFER ADR = XXXXXX 


WRD CNT = XXXxK 


;PRINT TRACK 


; CLEAR ioe WORD 
;PUT TRACK ON STACK 
;TYPE IT IN DECIMAL 


ACTUAL NMBR WRDS XKFRD = xXx’ 


—<- =| ——— 


291 0 
292 022450 
293 022452 


104414 


000022 
031710 
074325 


000016 LINE4: BIT #B1T06,$TATUS (RO) :DATA ERROR ? 
BEQ 1$ -BR IF NOT 
DISPLY .LINM : "PRINT BUFFER’ 
V eR). ~(SP) BUFFER ADDR ON STACK 
JSR PC, LINOC CT ;CONVERT TO OCTAL & PRINT 
DISPLY ,LINS “PRINT 'WRD CNT 
MOV SuADL (RO). -(SP) :WORD LENGTH SiZE(WORD COUNT) 
R PC, LINDEC :TYPE IT IN DECIMAL 
DISPLY ,LINX4 "ACTUAL NMBR WRDS XFRD = ° 
MOV $RMBA(RO),-(SP) VALUE IN BUFFER ADDR REGISTER 
SUB $BUF(RO),(SP) =SUBTRACT STARTING ADDRESS 
ASR (SP) “CONVERT INTO A WORD COUNT 
JSR PC. LINDEC :TYPE IT IN DECIMAL 
DISPLY .$CRLF > CR=LF 
1$: RTS PC “RE TURN 
-PRINT LINE 5 OF ERROR MESSAGE 
="GOOD DATA = XXXXXX BAD DATA = XXXXXX SECT POS = Xxx’ 
LINES: DISPLY ,.LINDS :PRINT "GOOD DATA’ 
002142 SUB #2,$RMBA(RO) BACK THE ADDRESS uP 
MOV $CPUOP, -(SP) >CHECK THE CPU (RH) TYPE 
BIC #°C174000,(SP) :LEAVE THE CPU BITS 
CMP #30000, (SP)+ :SEE IF RH70 
BNE =BR IF NO 
002142 SUB Ng $RMBA (RO) *BACKUP THE BUFFER POINTER 
002210 BIT weit! $RMCS3(RO) :SEE WHICH WORD HALF DIDN'T COMPARE 
BEC IF EVEN HALF DIDN'T COMPARE 
002142 SUB ne. SRMBA(RO) ‘ dAckub THE BUFFER POINTER AGAIN 
1$: MOV a$SRMBA(RO), ~(SP) -*GOOD" DATA — AT THE BUFFER LOCATION 
JSR PC,LINOCT :TYPE IT 
DISPLY ,LINBS “PRINT "BAD DATA‘ 
MOV $RMDB RO) . -(SP) BAD DATA FROM BUFFER 
JSR PC,LINOCT YPE IT 
MOV SRW CRO) , ~(SP) ‘WORD LENGTH ON STACK 
ADD $WRDL(RO).(SP) :MAKE INTO A POSITIVE NUMBER 
CLR -(SP) “UPPER DIVIDEND TO ZERO 
MOV SSSEC (RO), -(SP) :SECTOR SIZE ON THE STA 
JSR PC, $DIV “DIVIDE WORDS XFERED ay SECTOR SIZE 
MOV (SP) +, (SP) MOVE REMAINDER UP THE STACK 
DISPLY ,LINP “PRINT "SECT POS' 


LL FE LEG E LE A Et CGE I A Ee i a 
ow — —- ee 


A A  <Ee 
manne OE LL EL CTE sete: tet: 
eee 
— OC — 


294 022456 
295 022462 
296 022466 
297 


298 
299 
300 
301 022470 


302 022470 
307 022474 
022500 


022520 
308 022524 
309 022530 
I! 022534 


316 022542 


319 022556 
320 022562 


328 022600 
329 022604 
330 022619 
337 


332 
333 


334 
335 022612 
336 022616 
337 
338 
339 
340 
341 022620 
342 022624 
343 


34,4 
34,5 


346 
347 022626 
348 022632 
349 


———— a ee ee ee 


004737 
104414 
000207 


104414 
013746 


104414 
000207 


104414 


000207 


104414 
104414 
000207 


104414 
000411 


104414 
000406 


104414 
000414 


C7RMUBO RMOS/3/2 PERF EXER 
ERROR MESSAGE GENERATION ROUTINES 


023176 
001203 


074342 


075557 
001203 


074375 


023144 
0012035 


074417 
001203 


074452 


074417 


074501 
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JSR PC,LINDEC ; TYPE THE POSITION 
DISPLY ,$CRLF 
RTS PC 
sPRINT LINE 5A OF THE ERROK MESSAGE 
: "HEADER FROM ERROR SECTOR XXXXKMK XKXKMMK KKK MKKKKK ! 
LINESA: 
2$: DISPLY ,LINS5 : "HEADER CONTENTS OF ERROR SECTOR’ 
MOV CYLNDR,=-(SP) sHEADER POSITION 
JSR PCL] : TYPE IT 
DISPLY ,BLNKS2 + TYPE 2 BLANKS 
MOV CYLNDR+2,-(SP) “HEADER POSITION +2 
JSR PC,LINOCT iT YPE IT 
DISPLY ,BLNKS2 s TYPE 2 BLANKS 
DISPLY ,LINXS * APPEND ING INFO 1/23/77 
3$: ge oe 


;PRINT LINE 5B OF ERROR MESSAGE 
>"RMEC1 = XXXMXX RMEC2 = XXXXXX' 


LINESB: DISPLY .LINEPS :"RMEC1 = ' 
MOV $RMECT (RO). -(SP)’ -PUT REGISTER CONTENTS ON THE STACK 
JSR PC,LINOCT : TYPE IT 


DISPLY ,BLNKS2 TYPE 2 BLANKS 
DISPLY ,LINE 
MOV 


EOS 
$RME C2 (RO) . ~(sp)’ 


JSR PC,LINOCT TYPE IT 
DISPLY ,$CRLF 
RTS PC RETURN 


;PRINT LINE 6 OF ERROR MESSAGE 
"SECTOR IS ECC CORRECTABLE' 


LINE6: DISPLY ,LINB6 
DISPLY ,$CRLF 
RTS PC 


;PRINT LINE 6A OF THE ERROR MESSAGE 
> "SECTOR READ CORRECTLY AT OFFSET N' 


LINE6A: DISPLY ,LINC6 ;PRINT ‘READ CORRECTLY AT OFFSET N° 
BR LING6.1 3TYPE THE REST OF THE LINE 


3PRINT LINE 6B OF THE ERROR MESSAGE 
:"SECTOR IS ECC CORRECTABLE AT OFFSET N° 


LINE6B: DISPLY ,LINB6 sPRINT ‘SECTOR IS ECC CORRECTABLE ° 
BR LING6.1 


;PRINT LINE 6C OF THE vi ME SSAGE 
: "CORRECTED ON NTH RETRY 


LINE6C: DISPLY JLING6 
BR LIN6.2 


sECC CORRECTABLE 


: "CORRECTED ON NTH RETRY* 
> TYPE THE REST OF THE LINE 


:PUT REGISTER CONTENTS ON THE STACK 


eA EEE ame 


Z LT ES LY ET LE EL TS TT _——————— 
LL NS Sense 


CZRMUBO RMOS/3/2 PERF EXER 
ERROR MESSAGE GENERATION ROUTINES 


022634 
022640 


419 023040 
420 023064 


104414 
000411 


006301 
016137 
104414 
000000 
104414 
000207 


005046 
113716 
004737 
104414 
104414 
000207 


104414 
012746 


074531 


002420 


001203 


001331 
025176 
074517 
001203 


074643 


037122 
032254 
074706 
000064 
023176 
074716 
000066 
037122 


5 
0000 


074603 
000052 


I 9 
MACRO VO04.00 4=-APR=-81 01:42:23 PAGE 22-6 


022654 


156122 


sPRINT LINE 6D OF THE ERROR MESSAGE 
>*UNCORRECTABLE AFTER N RETRIES* 


LINE6D: DISPLY 
BR 


»L INUO6 
LIN6.2 


;'UNCORRECTABLE AFTER N RETRIES* 
FINISH 


sTYPE THE OFFSET VALUE IN MICRO=INCHES 


LIN6.17: 


1$: 


ASL 
MOV 


R} ;DOUBLE THE OFFSET TABIE INDEX 
OFMTBL(R1),1$ ADDRESS OF OFFSET POSITION MESSAGE 
0 ;OFFSET VALUE 

.$CRLF 

PC 


sRETRY COUNT TYPEOUT 
LIN6.2: CLR 
MOVB 


-(SP) ; CLEAR STACK 
RETRY+*1, (SP) ;RETRY COUNT 
PC,LINDEC sTYPE IT IN DECIMAL 
LINR6 ; 'RETRY* 

. SCRLF 


:PRINT LINE 7 OF THE ERROR MESSAGE 


: "TOTAL ERRORS : XXX 
LINE?: 


1$: 


DISPLY 
MO 


WOFL:X WRDS WRITN:XXXXXXM ROFL:O WRDS READ: XXXXXXX" 


-LIN7T ; TOTAL ERRORS 
STOTAL (RO) ,-(SP) 0 


STACK 
PC ,LINDEC : TYPE IT IN DECIMAL 
L IN7OX PRINT "WTOFL 
SuTOFL (RO). -(SP) >;PUSH SWTOFL(RO) ON STACK 
PC,LINDEC ; TYPE IT IN DECIMAL 
LIN N?X *PRINT *WRDS WRITN’ 
aly ~~ (SP) “ADDRESS OF LOW WORD ON STACK 
C,$DB2D > CONVERT 
BE” “ $SUPRL *PRINT 
LIN OR *PRINT "ROFL ® 
SRDOFL (RO) .-(SP) ->;PUSH S$RDOFL(RO) ON STACK 
PC ,LINDEC TYPE IT IN DECIMAL 
LIN7R : "WRDS READ‘ 
#S$READ,-(SP) :;LOW WORD ADDRESS 
RO, (SP) 
PC ,$DB2D ; CONVERT 
PC, $SSUPRL ay: IT 
,SCRLF 7CR- 
#5W15,aSWR SEE. IF "HALT ON ERRORS - SWITCH 15 
1$ IF NOT 
6: SWITCH 15 HALT 


;PRINT LINE 7A OF ERROR MESSAGE 


; "TOTAL SEEKS=XXXXX 


LINE7A: DISPLY 
MOV 


TOTAL MISFOS ERR = XXX TOTAL SKI= XXX‘ 


"TOTAL SEEKS = ° 


,LIN7P 
:TOTAL SEEKS 


4#$POSIT,=(SP) 


ee ne ee te a ed ee 
- - LD EE OA EE AON A lS ly li my —+a88- wee er ee! - _— - — 


ae 
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ERROR MESSAGE GENERATION ROUTINES SEQ 0113 


—S Es ee 


421 023050 060016 ADD RO, (SP) sDEVICE TABLE ADDRESS 
422 023052 004737 037122 JSR PC. $DB2D “CONVERT THE SEEK COUNT 
423 023056 004737 032234 JSR PC. SSUPRL ‘PRINT IT 
424 023062 104414 074556 DISPLY N7M *" TOTAL MISPOS ERR = ° 
023 016046 00010 MOV ghiSPOCRO), ~(SP)* ;TOTAL ERRORS 
426 023072 004737 023176 JSR PC, LINDEC : TYPE IT’ IN DECIMAL 
427 023076 104414 074621 DISPLY ,LIN7S ' TOTAL SKI ERR = ' 
428 023102 016046 000100 MOV $81 (RO) ,~(SP) “CONVERT & PRINT IT 
429 023106 004737 023176 JSR PC, LINDEC “TYPE IT IN DECIMAL 
430 023112 104414 001203 DISPLY ,$<¢ Ri *CR=L 
431 023116 032777 100000 156030 BIT psui8. aswR “SEE IF HALT ON ERROR = SWITCH 15 SET 
432 023124 001401 BEQ 1$ “BR IF NOT 
433 023126 000000 HALT “SWITCH 15 HALT 
434 023130 000207 1$: RTS PC 
436 PRINT LINE 8 OF THE ERROR MESSAGE 
437 : "DIFFERENT ERROR DURING RETRY’ 
439 023132 104414 074732 LINE8: DISPLY ,LIN&M 
4406 623136 004737 021126 JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
441 023142 000207 RTS PC 
4 
443 :OCTAL TYPEOUT ROUTINE 
444 > CALL: 
445 : MOV NUM, = (SP) :PUT THE NUMBER ON THE STACK 
446 : JSR PC, LINOCT 
bers : RE TURN 
449 023144 016646 000002 LINOCT: MOV 2(SP) ,=(SP) :PUT NUMBER IN PROPER LOCATION ON STACK 
450 023150 004737 033160 JSR PC, $SB20 *CONVERT THE NUMBER TO OCTAL 
451 023154 012637 023170 MOV (SP) +,1$  3GET THE ADDRESS OF THE ASCII STRING 
452 023160 062737 000005 023170 ADD #5.,1$ “ADDRESS THE LAST 6 ASCII DIGITS 
453 023166 104414 DISPLY *TYPE IT 
454 023170 000000 1$: -WORD 0 “ADDRESS 
455 023172 012616 MOV (SP)+, (SP) “CORRECT THE STACK 
456 023174 000207 RTS PC *RE TURN 
458 -ROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
459 : LEADING ZERO SUPRESSION 
461 : V NUM, ~ (SP) :PUT THE NUMBER ON THE STACK 
462 : JSR PC,LINDEC 
ra : RE TURN 
465 023176 016646 000002 LINDEC: MOV 2(SP) ,-(SP) -SET UP STACK FOR CONVERT 
466 023202 004737 033130 JSR PC, $SB2D “CONVERT IT TO DECIMA 
467 093506 004737 032234 JSR PC. $SUPRL “TYPE IT (WITH DEADING ZEROS SUPRESSED) 
468 023212 012616 MOV (SP) +, (SP) “RESTORE STACK POINTER 
469 023214 000207 RTS PC 


LLL LL LLL OLE A LO EE LAG EE EE A el el hit ll i et ee ee eee 
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GENERAL SUPPORT SUBROUTINES SEQ 0114 
] _SBTTL GENERAL SUPPORT SUBROUTINES 
3 :DECREMENT THE SECTOR=TRACK ADDRESS 
c : MOV #DPB,RO :DPB ADDRESS 
6 : JSR PC,.READDR 
| : RETURN 
| 9 :ON RETURN THE STACK CONTAINS THE FOLLOWING: 
| 10 : 4(SP) = SECTOR ADDRESS 
| 11 : 2(SP) = TRACK ADDRESS 
| 12 : (SP) = CYLINDER ADDRESS 
| 14 023216 004737 027346 READDR: JSR PC,GETLMT :GET ADDRESS LIMITS 
| 15 023222 162706 000006 SUB #6,SP “DECREMENT THE STACK POINTER 
16 023226 016616 000006 MOV 6(SP), (SP) “MOVE THE RETURN ADDR DOWN THE STACK 
17 02%232 005066 000006 CLR 6(SP) “CLEAR STACK FOR SECTOR 
18 023236 005066 000004 CLR 4 (SP) ‘CLEAR STACK FOR TRACK 
19 023242 116066 002144 000006 MOVB  $RMDA(RO) (SP) i SECTOR ON STACK 
20 623250 116066 002145 000004 MOVB  $RMDA+1(RO),4 : TRACK ADDRESS 
21 023256 016066 002172 000002 MOV $SRMDC (RO), Disp} ciel ADDRESS 
22 023264 005766 000006 1$: TST 6(SP) “SECTOR O ? 
23 023270 001403 BEQ 2$ “BRANCH IF SO 
24 023272 105366 000006 DECB ~=—s-_-« & (SP) “DECREMENT ONE SECTOR 
25 023276 000421 BR 4$ *BRANCH TO EXIT 
26 023300 005766 000004 2$: TST 4(SP) “ALSO ON TRACK 0 ? 
27 023304 001406 BEQ 3$ “BRANCH IF SO 
28 023306 113766 001424 000006 MOVB  SECLMT,6(SP)  :LAST SECTOR 
29 023314 105366 000004 DECB 4S ss«44& (SP) :DECR EMENT ONE TRACK 
30 023320 000410 BR 4$ KIT 
31 023322 113766 001424 000006 38: MOVB = SECLMT,6(SP) {CAST SECTOR 
32 023350 113766 001426 000004 MOVB  TRKLMT.4(SP) = GET _ LAST TRACK 
33 023336 005366 000002 DEC 2(SP) = DECREMENT Oe CYLINDER COUNT 
34 023342 000207 4$: RTS PC RETURN 
36 sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
38 023344 012737 177777 001312 CKCLK: MOV #~1,CLKFLG :CLEAR CLOCK AVAILABILITY FLAG 
39 023352 012737 177777 001310 MOV #-1_.PCLOCK “CLEAR KW11-P CLOCK AVAILABILITY FLAG 
40 023360 013746 000004 MOV ERRVEC,-(SP) | :;:PUSH ERRVEC ON STACK 
41 023364 012737 023440 000004 MOV wCKCLKT ERRVEC :SET UP VECTOR FOR CLOCK CHECK 
42 023372 005777 155700 TST * @$LKCSR “CHECK FOR KW11-P 
43 023376 005037 001312 CLR CLKFLG *SET CLOCK AVAILABILITY FLAG 
44 023402 005037 001310 CLR PCLOCK “SET KW11-P CLOCK FLAG 
45 023406 013701 001302 MOV SLPVEC,R1 *KW11=P VECTOR ADDRESS 
46 023412 012721 025074 MOV ACLOCK, (R1)+ 3SET UP KW11-P VECTOR 
47 023416 012711 000300 MOV #300, (R1) “PSW - PRI 6 
48 023422 012777 174575 155650 MOV #-1667..a$LKCSB :LOAD COUNTER BUFFER WITH 16.67 
49 023430 012777 000131 155640 MOV #131,a$LKCSR _:SET CLOCK - CNT UP, 10US, CONT INT 
50 023436 000441 BR CKCLK3 
52 023440 012716 023446 CKCLK1: MOV #1$, (SP) :SETUP RETURN ADDRESS 
53 023444 000002 RT! 
54 023446 012737 023510 000004 1$: MOV #CKCLK2,ERRVEC ;CHANGE ERROR VECTOR TO CHECK FOR KWi1-L 
55 023454 005777 155624 TST a$Lks “LOOK FOR KW11=L 


56 023460 005037 001312 CLR CLKFLG :SET CLOCK FLA S. 
57 023464 013701 001306 MOV $LLVEC,R1 :KWi1=L VECTOR ADDRESS 


AE A tT A Oe a em me oe re mee ee ee ens 


_ GENERAL SUPPORT 


58 023470 


2 
5 023546 


CZRMUBQ RMO5/3/2 PERF oes 


SUBROUT IN 


012721 


025074 
0600300 
000100 
025516 


076422 
001150 


031612 


003634 
000004 


- 
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155576 


CKCLKe: 


1$: 


2s: 


CKCLK3: 


Papo CRI) (R1)¢ 
Pie 0 abs 


#1$, (SP) 


NEDCLK 
SAUTOB 


é 
$GET42 


START 
(SP) +, ERRVEC 
PC 


eeu. o UP KWil=i VECTOR 


S 
:SET KW11=L INTERRUPT 


; SETUP RETURN ADDRESS 


;*P OR L CLOCK MUST BE ON SYSTEM’ 
ERUNNING IN AU AUTO MODE ” 


;BR 
; ABORT PROGRAM 


i. AGAIN 
: RESTORE THE ERROR VECTOR 


"= Ya a 
SEQ 01 
J ' 


. CZRMUBO 
| GENE RAL 


' 
' 


, 
<8 
bs. 


RMO5/3/2 PERF EXER 
SUPPORT SUBROUTINES 


023550 
02 


001530 


001203 
023664 


002044 
040142 
023674 
000010 


023664 


023674 


032444 
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; JSR PC,STATPR 
: RE TURN 
STATPR: 


MOV RO,~ (SP) 


a vem TO DISPLAY STATISTICS FOR ASSIGNED DRIVES 


3zPUSH RO ON STACK 
-sPUSH R4 ON STACK 


TST ASNLST sANY DRIVES ASSIGNED ? 
BEQ S$ OR IF NOT 
2$: TYPE , SCRLF R=LF 
JSR PC ,SHDTYP * TYPE THE HEADING 
CLR RS “CLEAR THE DRIVE INDEX 
3$: ASL R4 : CHANGE TO INDEX WORDS 
<< - laienilaie :GET THE aaa S BLOCK ADDRESS 
001530 BITB ATABIT(RG) -ASNLST :I1S THIS DRIVE ASSIGNED ? 
BEQ 4$ :BR IF NOT 
JSR PC, SDETAL :TYPE THE PERFORMANCE SUMMARY 
4$: INC R4 i INCREMENT THE INDEX 
CMP R4,A8. FINISHED ? 
és BNE 3$ “BR IF NO 
MOV (SP)+,R4 ::POP STACK INTO R4 
MOV (SP)+,RO :POP STACK INTO RO 
RTS PC RE TURN 
BH ag TO TYPE THE PERFORMANCE SUMMARY (STATISTICS) FOR AN INDIVIDUAL 
> CALL: 
: MOV #DPB,RO :DPB ADDRESS 
: JSR PC, SUMARY 
: RE TURN 
SUMARY: MOV RO,~(SP) ;SAVE RO 
MOV R4,~-(SP) sSAVE R4 
JSR PC. SHDTYP s TYPE THE HEADING 
CLR RS :CLEAR R4& FOR DRIVE NUMBER 
MOVB (RO) ,R4 sDRIVE NUMBER 
JSR PC, SDETAL : TYPE THE STATISTICS 
MOV (SP) +,R4 “REST ORE R4 
MOV (SP)+,RO *RESTORE RO 
RTS PC *RE TURN 
ANG; THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
- CALL: 
; JSR PC, SHDTYP 
; RETURN 
SHDTYP: JSR RS,TYPRI4 : TYPE SUMMARY HEADER 
SUMHD : HEADER 
RTS PC : RETURN 


: TYPE THE PERFORMANCE SUMMARY 
: "MOV #DRIVE ,R4 


;DRIVE NUMBER 


SEQ 0116 


65 
66 


023 
69 023712 
70 


71 
72 023716 
73 023722 


82 023774 
83 024002 
84 024004 
85 024012 
86 024014 
87 024016 
88 


89 024022 
024026 


98 024076 
99 


100 
101 024102 


024106 


024126 
102 024126 
024132 
103 024134 
104 024140 


024144 
024164 


104401 
000404 


004737 


104401 


000407 


000407 


| CZRMUBO RMOS/3/2 PERF EXER 
| GENERAL SUPPORT SUBROUTINES 


023702 


024750 
001205 
075625 


075555 


076044 
000005 


076056 


075617 
024030 


032522 


024110 


000056 


076477 
024146 
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024014 
040046 


024014 
040046 


024014 


; MOV 
: RETURN 
TYPE 
BR 
5$: .ASCIZ 
a 
: TYPE LINE 2 OF 
TYPE 
TYPE 


TYPE 
BR 


: TYPE LiNE 3 OF 
TYPE 


BR 
«2693: .ASCIZ 
68$: 


AR 0$ 
-:71$:  .ASCIZ / WRDS WRITN / 
70$: 


ee ee ee eee —~—2—=- = . 
- —e- 6 et ee ee te eee Ce 8s wee eee 


#DPB RO 


,65$ 

4$ 
<CRLF>/TIME / 
PC, STIME 
SUMMAR Y 
»$CRLF 
-UNTMSG 
R4,-(SP) 
2 

0 
-BLNKS1 
,DASH 
{BLNKS1 


te. DRVTYP(R4) 
i$” 


A#SRMC2 , 2S 
#5 ,DRVTYP(R4) 
#$RMO5 ,2$ | 


6 
/ PASS / 


$SPASSC (RO) ,- (SP) 


PC ,$SB2D 
ae eREPLZ 


PERIOD 
»-BLNKS1 

PC, TYMBA 
-BLNKS1 

PC, TYPACK 
SUMMARY 
-69$ 


68$ 
<CRLF><LF>/wWT OF LOW 
$WTOFL (RO) ,- (SP) 


PERIOD 
71$ 


;DPB ADDRESS 


3a TYPE ASCIZ STRING 
33GET OVER THE ASCiZ 


; TYPE ELAPSED TIME 


; CR-LF 

; TYPE ‘DRIVE’ 

7;5AVE R4 FOR TYPEOUT 

;2G0 ge pisit cs ASCII 

ss TYPE 2 DIGIT(S) 

+s SUPPRESS EAD ING ZEROS 
: TYPE 1 BLANK 


: TYPE 1 BLANK 
ZADDRESS OF RMO3 MESSAGE 
:IS i AN RMC3 ? 


7BR IF YES 
ZADDRESS OF RMO2 MESSAGE 
71S oe? a AN RMO2 ? 


=BR IF S 

: ADDRESS OF RMOS MESSAGE 

: TYPE THE DRIVE TYPE MESSAGE 
“MESSAGE ADDRESS HERE 

TYPE °.° 

sz TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


:PUT THE PASS COUNT ON THE STACK 
ONVERT IT 
TYPE IT 
* TYPE 3 DIGITS 
<T¥Pe* 
: TYPE 1 BLANK 
; TYPE MBA SERIAL NUMBER 
PE 1 BLANK 
- TYPE PACK SERIAL NUMBER 


BBL dy ASCIZ STRING 
;3GET _— THE ASCIZ 


:SAVE SWIOFL(RO) FOR TYPEOUT 
‘7 TYPE=-DEC IMAL ASCII WITH SIGN 


Se i a 
s TYPE ASCIZ STRING 
3iGET OVER THE ASCIZ 


SEQ 0117 


CZRMUBO RMO5S/3/2 PERF EXER 
SUBROUTINES 


_ GENERAL SUPPORT 


Cs ae o= - = 
— a} 
) 


105 024164 


024206 
024212 
024230 
113 024250 
024234 
114 024236 


115 024262 
024246 


— «8a 3 td 2 td 

MMUNINy- —  -4 

WNC OOo 
i) © 
Nm 


024310 
024314 


128 024344 
37 


38 
139 024350 
024354 


024370 
140 024370 
C24374 


024406 
141 024406 
024412 
142 024414 


143 024420 
024424 


024436 
144 024436 
024442 
1645 026444 
146 024450 
0264454 


024214 


000064 


076477 
024250 


0C0066 
037122 
032150 
076477 


024316 


000052 
037122 
632150 
076477 


024356 
024376 


000074 


076477 
024426 


000076 


076477 
024456 
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:TYPE LINE 4 OF 
TYPE 


-73$: 
55: 


:;75$: 


743: 


sTYPE LINE 5 OF 
TYPE 


-:77$: 


' 76$: 


BR 
ASCIZ 


BR 
-ASCIZ 


RO,-(SP) 
#SWRITN, (SP) 
PC ,$DB2D 
PC, SUPRS 
»PERIOD 


SUMMARY 
73$ 


2$ 
<CRLF>/RD OF LOW 


ey eae 


PERIOD 
75s 

4$ 

/ WRDS READ / 
RO,-(SP) 
#SREAD (SP) 

,$DB2D 
pt’ * SUPRS 
RIOD 


<CRLF>/SEEKS / 
RO,-(SP) 
#$POSIT. (SP) 


pe  SUPRS 
RIOD 


: TYPE LINES 6 AND _7 OF SUMMARY 
TYPE 79$ 


: :65$: 


BR 
-ASCIZ 
TYPE 
BR 
ASCIZ 
MOV 
TYPDS 
TYPE 
TYPE 
BR 
-ASCIZ 
MO‘ 
TYPDS 
TYPE 
TYPE 


BR 
eASCIZ 


8S 
<CRLF>/ERRORS:/ 
£1$ 

O$ 

<CRLF>/SOFT / 
$SOF T (RO) ,-(SP) 
PERIOD 

,83$ 

/ HARD / 
SHARD (RO) , = (SP) 


;GET “mgr. OF DPB 

SPOINT TO LOw NUMBER OF WRDS WRITTEN 
;CONVERT DECIMAL NUMBER 

i SUBPRESS LEADING ZEROS AND TYPE 


ss TYPE ASCIZ STRING 
+ ae OVER THE ASCIZ 


-SAVE $RDOFL(RO) FOR TYPEOUT 
i260 TYF YPE==DEC IMAL ASCII WITH SIGN 


TY 
TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


;GET ADDRESS OF DPB 

[POINT TO LOW NUMBER OF WRDS READ 
; CONVERT DECIMAL NUMBER 

: SUPPRESS LEADING ZEROS AND TYPE 


3s TYPE ASCIZ STRING 
3zGET OVER THE ASCIZ 


:PUT $POSIT ON THE STACK 
:POINT TO LOW NUMBER OF SEEK COUNT 
: CONVERT DECIMAL NUMBER 

; SUPPRESS LEADING ZEROS AND TYPE 


sz TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


i: TYPE ASCIZ STRING 
323GET OVER THE ASCIZ 


22 SAVE SSOF (RO) FOR TYPEOUT 
‘ier ASCII WITH SIGN 
:; TYPE ASCIZ STRING 

::GET OVER THE ASCIZ 

3:SAVE SHARD(RO) FOR TYPEOUT 
imo ASCII WITH SIGN 


:; TYPE ASCIZ STRING 
32GET OVER THE ASCIZ 


GENERAL SUPPORT 


024464 

147 ee 
024470 

148 024472 
149 024476 
024502 
024514 

150 024514 
024520 

151 024522 
152 024526 
024532 
024544 


153 024544 
156 024550 


G2 
157 024570 
158 024572 


159 024576 
160 024602 


CZRMUBO RMO5/3/2 PERF EXER 


SUBROUTINES 


C00100 


076477 
024504 


000102 


076477 
024534 


076477 
001203 
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843: 


a ree a me i ee eee eee 


SEQ 0119 
$SKI(RO),=(SP) i: SAVE $SK1(R9) FOR TYPEOUT 
:GO_ TYPE==DECIMAL ASCIJ WITH SIGN 
PERIOD « TYPE 
87$ +: TYPE ASCIZ STRING 
6$ “SGET OVER THE ASCIZ 
7 MISP / | 
$H1SPOCRO) .=(SP) SAVE $MISPO(RO) FOR TYPECUT 
0 TyPE=-DEC IMAL ASCII wiTH SIGN 
.PERIOD itp 
9$ «TYPE ASCIZ STRING 
RF "GET OVER THE ASCIZ 
/ OTHER / 
STOTAE (RO) ,-(SP) ATE NUMBER OF OTHER ERRORS 


SSOFT (RO), (SP) 
SHARD (RO), (SP? 
$SK1 (RO), (SP) 


$MISPO(RO) , (SP) 

£60 TYPE==DECIM*. ASCII WITH SIGN 
.PERIOD “TYPE *, 
s¢RLF “CRLF 


; CALCUL 
: SUBTRACT SSOFT FROM STOTAL 
ig 


pee LLL TT 
8 a ee ener 


SE NE RAL 


1 


16 


18 


19 


26 


~ZRMUBO RMO5/3/c¢ PERF EXER 


SUPPORT SUBROUTINES 


024626 


024630 


024652 


024654 


024722 


024724 


024742 
024746 


000207 


005737 
001006 


001342 
000074 
000074 


001342 
000076 
000076 


007342 
000100 
000100 


001342 


060102 
000102 


001342 
000072 
000072 


MACRO V04.00 4=APR=-81 01:42:23 PAG 


07777? 


077777 


077777 


077777 


077777 


D 10 
E 25 


sROUTINE TO INCREMENT $SOFT 


:NOTE: $SOFT WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 

INCSOF: TST BADSEC +SEE IF BAD TRK/SEC INDICATOR SET 
BNE 3$ :BR IF IT'S SET, DON'T INCREMENT COUNT 
CMP $SOFT(RO) #77777 :18 $SOFT ALREADY AT MAXIMUM ? 
BHIS 3¢ ;BR IF IT IS 
INC $SOF T (RO) ; INCREMENT $SOFT 

3$: RTS PC RETURN 


sROUTINE TO INCREMENT SHARD 


NOTE: $HARD WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 

INCHRD: 7ST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 
BNE ;BR IF IT°S SET, DON’T INCREMENT COUNT 
CMP SHARD (RO) , 477777 31S SHARD ALREADY AT MAXIMUM ? 
BHIS 3$ ;BR IF IT IS 
INC SHARD (RO) ; INCREMENT SHARD 

3$: RTS PC RETURN 


sROUTINE TO INCREMENT $SK]I 


sNOTE: $SKI WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
INCSKI: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 
BNE “BR IF [T'S SET, DON'T INCREMENT COUNT 
CMP $SKI(RO).#77777 :I1S $SKI ALREADY AT MAXIMUM ? 
BHIS 3$ “BR IF IT IS 
INC $SKI (RO) : INCREMENT $SKI 
3$: RTS PC :RE TURN 


ZROUTINE TO INCREMENT $MISPO 


“NOTE: $MISPO WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
INCMIS: TST BADSEC :SEE IF BAD TRK/SEC INDICATOR SET 
BNE 3 “BR IF IT'S SET. DON'T INCREMENT COUNT 
CMP $MISPO(RO) 477777 :1S $MISPO ALREADY AT MAXIMUM ? 
BHIS  3$ *BR IF IT IS 
INC $M] SPO(RO) : INCREMENT $MISPO 
38: RTS PC sRETURN 


*ROUTINE TO INCREMENT $TOTAL 
“NOTE: 


STOTAL WILL NOT BE INCREMENTED BEYOND 77777 (32767.) 
INCTOT: TST BADSEC : SEE IF BAD TRK/SEC INDICATOR SET 
BNE 3$ IT'S SET, DON'T INCREMENT COUNT 
CMP $TOTAL (RO), e77770 -1S $TOTAL ALREADY AT MAXIMUM ? 
BHIS 3$ “BR IF IT IS 
INC $TOTAL (RO) s INCREMENT $TOTAL 
3$: RTS PC *RETURN 


LL LL EE EET EN Re eR Re 


EE EEE Se ee ee eee eee 
[ LL A SL ENS gp ee Ee SE Se 


CZ7RMUBO RMO5S/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


56 


DONA MOALSWN OW” 
© oO 


PUKE VSVRRPOILS 
=) 


025070 
025072 


9025974 


0 2 
025236 


001312 
000002 
001344 
000144 


025024 
001750 


025024 
035130 
032334 


A 


032534 


001352 
001314 
001350 
000074 


001350 


000024 


044254 
001452 


001452 


177777 
001454 
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025024 


001352 


€01350 


001346 


001314 


001454 
001516 


AL OLE A LG EG LO EGE A it i ft 


sROUTINE TO TYPE THE TIME 


STIME: 


1$: 
2$: 


3$: 


. WORD 
RTS 


CLKFLG 

3$ 

#2 ,2$ 
HOUR , = (SP) 
(SP) ,#100 
1$ 

e$ 

(SP) ,#1000. 
1$ 


2$ 
PC ,$SE2D 
+d aloe 


. COLON 
MINUTE ,-(SP) 


PC, $SB2D 


R5,FILLZ 
r4 


RS.FILLZ 
PC 


;CLGOCK HANDLER ROUTINE 


CLOCK: 


1$: 


2$: 
3$: 


4$: 


? a 

HZ ,ONESEC 
SECOND 
re 
SECOND 
INTRVi +2 
MINUTE 

-) glia 
MINUTE 

HOUR 
lated 
#16. ,~ (SP) 
#20.,~ (SP) 


PC ,RMTMR 
INTRVL 


4$ 
INTRVL,INTRVL #2 ; 
4$ 


4-1 ,STATIN 
INTRVL +2 


;CLOCK ON THE SYSTEM ? 
:BR IF NOT 


ZASSUME 2 DIGITS TO TYPE 
:PUT 'HOURS' ON THE STACK 
‘100, Pe OR MORE ? 


NO 
TYPE 3 DIGITS 
: 1000. io OR MORE ? 


TYPE 4 DIGITS 
: CONVERT TO DECIMAL 
‘NUMBER OF HOUR DIGITS TO TYPE 


“PUT "MINUTES' ON THE STACK 
: CONVERT TO DECIMAL 


: TYPE | 
Lids 2 DIGITS 


:PUT SECONDS ON THE STACK 
rte TO DECIMAL 

sTYPE IT 

:TYPE 2 DIGITS 


a a THE ONE SECOND COUNTER 
IF A SECOND NOT COUNTED 
“RESTORE THE VALUE 
Da THE SE COND 
T MAXIMUM ? 


‘BR IF NOT 

;CLEAR THE SECOND*S COUNTER 

“COUNT THE PERFORMANCE SUMMARY INTERVAL 
ee THE MINUTE 

;AT MAXIMUM ? 

‘BR IF NOT 

>CLEAR THE MINUTE’S COUNTER 

:COUNT THE HOURS 

CPU RUNNING @ 5SOHZ ? 


:BR IF YES 

:16MS ON THE STACK @ 60HZ 

>20MS ON THE STACK @ 50HZ 

;DRIVER TIMER ROUTINE 

7DISPLAY THE PERFORMANCE SUMMARY ? 
:BR IF NOT 

1S ha a teats FINISHED ? 


;BR_IF 
:SET PERFORMANCE SUMMARY DISPLAY FLAG 
:CLEAR THE PERFORMANCE INTERVAL COUNTER 


SEQ 0121 


2 ee CS ee eee Gee 


ee - 
St ee Reeser — 


— LLL LL LLL ALLELE LL! CL EL A ECE te Lt ae eta ete tt tear am 
' 
; 
' 
: 


© Z7RMUBO 


GENE RAL 


~~ wt st 3 te et 2 4 


CONAWEWN—OOMNO WP wro-. 
© 


RMOS/3/2 PERF EXER 
SUPPORT SUBROUTINES 


025240 


025276 
625302 


025322 
025326 


025472 


005737 


122715 


040140 


00200 
0 


076567 


001340 
001536 
003634 


000124 
000701 
000067 
000060 


177770 
000124 


026550 
000104 
026330 
000123 
026436 
000127 
000001 
026552 
000122 
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177776 


177777 


177777 


177777 


177777 
153500 


177777 


ae DECODE ROUTINE 


23: 


38: 
63: 
5$: 
6$: 


7$: 
BS: 


MOV 
JSR 


RETURN] 
RE TURN2 


ET SE em me ee ee ee 


#1,CFLAG 
PC.KSR 


PC $TKINT 
/ENTCOM 


(SP)+,R5 
CFLAG 
ASNL ST 
13$ 
START 

RS 

#°T (RS) . 
#°A, (RS) 
3$ 

(RS) ,a°7 
12$ 
(R5).#°0 
12$ 


2 
#*C7,(R5) 
Pat hia 


$ 

PC NEWASN 
13$ 
#°D,-1(R5) 
PC ,DEASGN 
13$ 

Bnet he? 
PC ,SCMND 
13$ 

Ot hata 
4» teeta 
ee 
#'R,=-1(R5) 
12$ 


eee ee ne ee 8 ——< on. 


0 
7 


:"CFLAG’ IS NORMALLY SET BY THE TTY 
:ROUTINE IN INTERRUPT MODE 


3; SYSTEM BUSY RETURN 
SRETURN AFTER KEYBOARD SERVICED 


SERVICE 


+ ANY a UNDER WAY ? 


SAVE THE yt ee 

:SET PRIORITY TO 4 

: CLEAR THE ‘CONTROL C° FLAG 

:TYPE THE TIME 

‘INITIALIZE TTY KEYBOARD 
ENTER COMMAND’ 


;READ THE KEYBOARD 

;GET ADDRESS OF Y. STRING 
:CHECK THE CONTROL C FLAG 
;BR IF NO "CONTROL C’ “ENTERED 
sANY DRIVES ASSIGNED ? 

7BR IF YES 

; JUMP TO START 


;POINT TO SECOND CHARACTER 
sEQ TOA 'T' ? 
: YES 
3E0 TO AN ‘A’ 

IF IT IS 
“DRIVE E NUMBER GREATER THAN AN ASCII 7 2 


:BR IF | 

;DRIVE NUMBER LESS THAN AN ASCII 0 ? 
;BR IF IT IS 

coat, Ve ONL Y LOWER 5 BITS IF CHAR NOT °A* 


:BR IF NOT EQ 
sASSIGN DRIVE FOR TEST 


sEXIT 

[EQ TO 'D' ? 

:BR IF NOT EQ 
ae DRIVE 
3EQ TO ‘S* 

;BR IF NOT EQ 
ee STATISTICS 
EXIT 

7EQ TO ‘w' 

:BR IF NOT EQ 
>1S SWITCH 0 SET ? 


:BR IF SET, CAN'T DO ‘w* COMMAND 
;WRITE A DATA PACK 


, Re 2 


XIT 
;EQ TO 
“BR IF NOT EQ 


SEC Ole¢ 
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S58 025474 004737 026540 JSR PC REDAPK inn A DATA PACK 

59 025500 000440 BR 1 “EXIT 

60 025502 122765 000127 %77777 98: CMPR es #*wW,=1(R5) swt COMMAND ? 

61 025510 001031 BNE 12$ NO 

62 025512 032777 000001 153434 BIT #Sw0, aSwWR *1§ SWITCH O SET ? 

63 025520 001022 BNE 11$ “BR IF SET, CAN'T 00 ‘w' COMMAND 
64 025522 122765 000101 000001 CMPR ss #'"A, 1 (5) FALL DRIVES 7 

65 025530 001413 BEQ 10$ YES 

25532 126527 000001 000067 CMPR 1(R5) ,#'7 “GREAT THAN 7 

67 025540 10101 BH] 123 “YES 

68 025542 126527 000001 000060 (MPR —s«1(R'5) ,#"0 iLESS THAN 0 

69 025550 103411 BLO 12$ YES 

70 025552 142765 177770 000001 BICR  #*C7,1(R5) * CHOP OFF THE HIGHER BITS 

71 025560 004737 026564 10$: JSR. PC WATPAK “ASSIGN. DRIVES WITH WT COMMAND 

72 025564 000406 BR 13$ 

73 025566 104401 076501 11$: TYPE .MSWRO :TYPE "CAN'T WRITE IN READ ONLY MODE’ 
74 025572 000631 BR i$ “TRY AGAIN 

75 025574 104401 076544 12$: TYPE ~INVLD « TYPE ‘INVALID COMMAND’ MESSAGE 
76 025600 000626 BR i$ :TRY AGAIN 

77 625602 104413 13$: RESREG “RESTORE RO - RS 

78 025604 005777 153352 SE TST a$TKR “CLEAR THE TTY BUFFER 

79 025610 052777 000100 153342 ‘Bis #BIT06,a$TKS  :SET TTY INTERRUPT ENABLE 

80 025616 005037 177776 CLR PS *SET PRIORITY BACK TO ZERO 

81 025622 000207 | RTS PC * RE TURN 

85 :ROUTINE TO PROCESS THE ASSIGN REQUEST ('T*’, ‘R', OR ‘W* COMMANDS) 
85 025624 111504 ASSIGN: MOVB (R5) RG :PUT DRIVE # IN RG 

86 025626 005037 001340 1$: CLR CFLAG “CLEAR CONTROL C FLAG 

87 025632 005037 001430 CLR DRVPAR “ASSUME CHANGING DRIVE PARAMETERS 
88 025636 104401 077315 TYPE _MSPRM “TYPE "CHANGE DRIVE PARAMETERS ?° 
89 025642 104417 RDLIN “READ THE ENTRY 

90 025644 012600 MOV (SP)+,RO ;SAVE ADDRESS OF RESPONSE 

91 025646 005737 001340 TST CFLAG WAS IT CONTROL C ? 

92 025652 001365 BNE 1$ “BR IF YES 

93 025654 105710 TST8 (RO) :WAS RESPONSE A CARRIAGE RETURN (DEFAULT ‘N*)? 
94 025656 001414 BEG 3$ “BR IF YES 

95 025660 105760 000001 TSTR ~—- 1 £ROD :WAS IT TERMINATED WITH CARRIAGE RETURN ? 
96 025 001006 BNE 2$ F NO 

97 025666 122710 000131 C ay, (RO) WAS IT A *Y* RESPONSE ? 

98 025672 001410 BEQ 4$ “BR IF YES 

59 025674 122710 000116 (MPR —s_ #”'N, (RO) “WAS IT A "N' RESPONSE ? 

100 025700 001403 BEQ 3$ “BR IF YES 
101 025702 104401 076677 2$: TYPE ,BADENT > TYPE BAD ENTRY MESSAGE 

102 025706 000747 BR i$ “TRY AGAIN 

103 025710 005237 001430 3$: INC DRVPAR *DO0 NOT CHANGE DRIVE PARAMETERS 
104 025714 122704 000101 L$: (MPR #" ARG “ASSIGN ALL DRIVES ? 

105 625720 001431 BEQ ASGN2 “BR IF YES 

107 025722 012737 075676 031050 ASGN1: MOV MUNTASN,ASNMSG ; ‘DRIVE ASSIGNED! MESSAGE ADDRESS 
108 025730 005737 001432 TST XXDP LOADED FROM THIS DEVICE ? 

109 025734 001412 BEO 1$ ‘BR IF NO 

110 025736 123704 001432 CMPB KXDP,, Re : LOADED FROM THIS DRIVE ? 

111 025742 001007 BNE 1$ 

112 025764 1646437 040142 001530 BICB  ATABIT(R4), ASNLST ;DELETE THE DRIVE FROM THE ASSIGNED LIST 
11% 025752 012737 076011 031050 MOY #LODEV.ASNMSG "LOAD DEVICE’ MESSAGE ADDRESS 
114 025760 000407 BR 2$ 


SO ete oe 
SE ES SS cet age: 


<a ee eee 


RMO5/ 3/2 PERF EXER 
SUPPORT SUBROUTINES 


025762 


026252 


136437 


040142 
026102 
031024 
301638 
001432 


040142 
076011 


040142 
026102 
0C000.” 


031024 


040142 
070322 


002044 
015740 


040036 


026602 


001450 
076372 


001203 


001203 


027020 
030124 
002044 
001320 
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001550 


031050 


001530 
031050 


001530 


001530 


001554 
000026 


1§: 


23: 


ASGNe: 
1$: 


2%: 


3$: 


4$: 


ASGNS: 


1$: 


ASGNG: 


LS ES REN | ee ee em oe 


ee eee Pa ALREADY ASSIGNED ? 
PC ,ASGN5 saet IF DRIVE ON THE SYSTEM 

PC RETURN 

ASNERR ZEXIT ERROR 

RS ;START WITH DRIVE 0 
AMUNTASN,ASNMSG ; ERROR ME SSAGE 

XXDP LOADED FROM THIS DEVICE ? 


2$ 
XXDP,R4 
2$ 


ATABIT(R4) ,ASNLST 
i eh , ASNMSG 


a cat ae 


PC ,ASGN3 
R4 

R4 a7 

1$ 


PC 
PC ,ASNERR 
3$ 


ee lad »ASNLST 


“hg » GENDPB 


BLKADR(R4) ,RO 


PC ,RECALO 

RS 

DRVSTA(RS) 
GN7 


R5, GETADR 
DRVPAR 
~DRNUM 
R4,-(SP) 
2 


0 
, SCRLF 
PC,TYMBA 


TAB 

PC, TYPACK 
,SCRLF 

R4 


PC,DRVPRM 
PC,MANTER 


BLKADR(R4) ,NEWUNT (R4) 
we , $PACK (RO) 
R 


PC 


“BR IF NO 
;LOADED FROM THIS DRIVE ? 
;BR IF NO 


;DELETE THE DRIVE FROM THE ASSIGNED LIST 
;"LOAD DEVICE’ MESSAGE ADDRESS 


sALREADY ASSIGNED ? 


‘ASSIGN THE DRIVE 
i; INCREMENT DRIVE & 


“ALL DRIVE CHECKED ? 
“YES 
“ERROR MESSAGE 

TO LOOP 


‘a he ALREADY ASSIGNED ? 


; MAK INDEX 

;PUT BLOCK*S ADDR INTO RO 
:RECALIBRATE DRIVE 

:MAKE R4 BYTE INDEX 

:DRIVE AVAILABLE? 

:BR IF DRIVE OFFLINE OR NONEXISTENT 
7BR IF DRIVE UNSAFE 

;CLEAR BLOCK FOR DRIVE JUST ASSIGNED 
:GET DRIVE (MBA) SERIAL NUMBER 
SRETRIEVE BAD SECTOR eat’ 

:CHANGE DRIVE PARAMETERS ? 

;BR_ IF NO 


‘ ] 

: TYPE DRIVE MESSAGE 
>;SAVE R4 FOR TYPEOUT 
:-G0 Diggin «By ASCII 
:sTYPE 2 DIGIT(S) 

4 eb pee LEADING ZEROS 


sCR=L 

‘TYPE "MBA (DRIVE) SERIAL NUMBER 

: TYPE TAB CONTROL 

s THE PACK SERIAL NUMBER 

>CR=L 

sMAKE R4& WORD INDEX 

:GET THE DRIVE'S ADDRESS LIMITS 

“MANUALLY ENTER BAD SECTOR INFORMATION 

;DPB ADDRESS 

sSET READ/WRITE DATA PACK INDICATOR 
MAKE R4 BYTE INDEX 

“RETURN 


SUPPORT 


026254 
026262 


026526 


| RMOS/3/2 PERF EXER 


SUBROUTINES 


012737 
000137 


105764 
001405 
100010 
012737 
000407 
012737 
090403 
012737 
G00137 


¢ 76001 
031024 


040046 


075724 
075745 


075633 
031024 
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031050 ASGN6: MOY MNOTSAF ,ASNMSG ; ‘UNSAFE' MESSAGE ADDRESS 
JMP ASNERR ;T0 ERROR ROUTINE 
ASGN7: TSTB DRVTYP(R4) iDRIVE PRESENT? 
BEQ 1$ :BR IF NOT 
BPL 2$ 7BR IF DRIVE OFFLINE 
037050 * eins tae A al OF ‘NOT RM05/3/2° MSG 
031050 18: 4g la »ASNMSG : ADDRESS OF "NOT PRESENT’ MSG 
031050 28: MOV  * ASNMSG : ADDRESS OF "DRIVE OFFLINE’ MESSAGE 
3$: JMP ASNERR TO ERROR ROUTINE 


EE EE FE Rs RE EN OE Om we ew oncom es ee ee 


————— LL LST Se a re = ee eee + 
a AS -_ 


C7RMUBO 


GENERAL 


45 
46 
47 


48 
49 


COODOWNAMLSWRH—-OVDONOUSWNr— 
ole) eolele) ) 


RMC5/3/2 PERF EXER 
SUPPORT SUBROUTINES 


026330 


026522 
026526 


026530 


50 026534 
51 


52 


53 
54 


026540 


55 026546 


005004 


006207 


013746 
122715 


012657 
000207 


005037 
000137 


012737 
000137 


000010 
000101 


000001 
040142 
040142 
040142 


002044 


075654 
031024 


001530 
000101 
040142 
040142 
075654 
031024 
001530 


023550 
076155 


901530 


001320 
025624 


000001 
025624 
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:'D* COMMAND (ROUTINE TO DEASSIGN A DRIVE) 


DEASGN: CLR 
OV 


001530 1$: 


001530 
031662 


001532 


2$: 


031050 3$: 
4$: 
o°. 5" 
SCMND : 


001530 


031050 1$: 


2$: 
33: 
4$: 


BR 
RTS 


COMMAND 


R4 : START WITH DRIVE 0 
#8. ,R3 ; COUNTER 

#°A, (RS) i DEASSIGN ALL DRIVES ? 
1$ :BR IF YES 

iT . R4 ;GET DRIVE NUMBER 


T R3 FOR ONE UNIT 
;DRIVE ASSIGNED ? 
NOT 


;DELETE THE DRIVE FROM THE ASSIGNED LIST 

;DELETE DRIVE FROM AUTO ASSIGN LIST 
ADDR INTO A WORD INDEX 

;PUT ADDRESS IN DEASSIGN LIST 


#), : SET 
ATABIT(R4) , ASNLST 
$ ;BR 


3 
ATABIT(R4) ,ASNLST 
ATABIT(R4) ,AUTLST 


RG :MAK 
ens DUNIT(R4) 


Ry sANY MORE DRIVES ? 

4$ “BR IF NOT 

ors 

MUNTNOT,ASNMSG ;ADDR OF ‘NOT ASSIGNED’ MESSAGE 
PC,ASNERR :REPORT IT 

2$ 

PC 


(ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 


ASNLST,=(SP) :;PUSH ASNLST OW STACK 
wea. (R5) FALL STATISTICS ? 


(RS) RS :GET DRIVE NUMBER 
ATABIT(R4) (SP) ;IS THIS DRIVE ASSIGNED ? 


1$ :BR IF NO 
la a tee ,ASNLST ;GET DRIVE ASSIGN BIT 


#UNTNOT,ASNMSG ;ADDR OF “NOT ASSIGNED’ MSG 
oe MAS ERROR MESSAGE 

ASNL ST ANY ge Pa ASSIGNED ? 

4$ :BR_IF NO 

PC, STATPR sTYPE ALL STATISTICS 

, STARS STYPE "sex, ETC" 

Si atest ;:POP STACK INTO ASNLST 


3"T* COMMAND (ROUTINE TO TEST A DRIVE) 
NEWASN: CLR 
JMP 


T 'T* COMMAND INDICATOR 


PACK PS 3 
:GO TO THE ASSIGN ROUTINE 


ASSIGN 


3;"R" COMMAND (ROUTINE TO READ A DATA PACK) 
0013520 REDAPK: MOV 
JMP 


ATOR 


#1 ,PACK T 
DRIVE 


:SET THE ‘READ’ IND 
ASSIGN ST 


IC 
ASSIGN THE REQUESTED 


CZ7RMUBO 
— GENERAL 
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SUPPORT SUBROUTINES 


026552 
026560 


026564 
026570 
026576 


012737 
0001537 


116515 
012737 
000137 


:'w' COMMAND (ROUTINE TO WRITE A DATA PACK) 


177777 001320 DATAPK: MOV #=1 ,PACK ;SET THE ‘Ww’ COMMAND INDICATOR 
025624 JMP ASSIGN sASSIGN REQUESTED DRIVE 

:'WT" COMMAND (TO WRITE A PACK AND TEST A DRIVE) 
000001 WATPAK: MOVB 1(R5),(R5) ;ADJUST DRIVE NUMBER ADDRESS 
177776 001520 MOV #=2 ,PACK 3PACK WRITE COMMAND 
025624 JMP ASSIGN ; JUMP TO ASSIGN ROUTINE 


SEQ 0127 


— CZRMUBO 
GENERAL 


Se ore ee eee ee —— 


— 


—) 


OOO NOUWP wiry -. 
oO 


RMO5/3/2 PERF EXER 
SUPPORT SUBROUTINES 


027016 


010146 


012605 
012604 
012603 
012601 
000207 


000002 
000072 


000002 


000002 
000104 


000002 
002004 


C00064 
177777 


000002 


001502 
001502 
064 


000002 
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177776 


000024 


000002 
000050 


000020 
000004 


000024 
07 022 


= TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 


“RO = 


CLRDPB: 


1$: 


2$: 


3$: 


4$: 


;ROUTINE TO 
CALL: 


a 
. 
° 
© 
e 
e 


MOV 
JSR 


GET 


#DPB,RO ;DPB ADDRESS 
PC,CLRDPB 


DPB ADDRESS BEFORE CALLING THE ROUTINE 


R1,=(SP) th R? ON STACK 
R3,~-(SP) PUSH R3 ON STACK 
R4,~(SP) 7 PUSH R4 ON STACK 
R5,-(SP) ;;PUSH R5 ON STACK 
RO,R4 ;GET THE DPB ADDRESS 


#2 ,R4 sADDRESS OF FIRST LOCN TO BE CLEARED 
#<$CYL-SCOMND>+2,R3 ;NUMBER OF LOCNS TO BE CLEARED 


(RG) 4 “CLEAR THE LOCATION 
#2,R3 “DONE CLEARING YET ? 
1§ iBR IF NO 
#2,R KIP OVER THE '$REG’ LOCATION 
BcANEXT-STATUS> +8, RS :NUMBER OF LOCNS TO BE CLEARED 
:CLEAR THE LOCATION 
a a3 3D YET ? 


+4 ONE agen 
#<S$MBASN-$F IRST>, RG ;SKIP OVER FIRST FLAG, MIN/MAX ADRS 
;LIM TABLE 


TS AND BAD SECTOR 
— ee 2,R3 R OF LOCNS TO BE CLEARED 


#~1,~-2 (RG 


(RG)+ 
#2,R3 


3$ 
BEGCOD, $CODE (RO) 
BEGCOD,R1 


; NUMBE 
: INITIALIZE TERMINATOR FOR BAD SECTOR TABLE 
;CLEAR A LOCATION 
: DONE CLEARING YET ? 


: INITIAL COMMAND CODE 


ADPB ,RO 


:GET THE ACTUAL OP CODE 
COMTBL (R1) , $COMND (RO) RATION 


BEGPAT , SPATTC(RO) 

SPATTC (RO) ;CONVERT CODE TO A TABLE INDEX 
BEGWC .$WRDL(RO) ;BEGINNING WORD COUNT 
BEGWC.SWCNT(RO) ;VALUE FOR DATA TRANSFER 

SWCNT (RO) sMAKE IT INTO 2°S COMPLEMENT 
#256. ,$SSEC(RO) ; INITIAL VALUE OF SECTOR SIZE 
#1,$PASSC(RO) :PRESET PASS COUNT TO 1 
#1, $CODE (RO) sHEADER COMMAND ? 


4$ :BR IF NOT 

#2, $SSEC(RO) sADD HEADER SIZE TO SECTOR SIZE 
(SP)+,R5 + sPOP STACK INTO R5 

(SP) +,R4 ;POP STACK INTO R4 

(SP)+,R3 ::POP STACK INTO R3 

(SP)+,R1 :;POP STACK INTO R1 

PC ;RETURN 


ADDRESS LIMITS FROM THE OPERATOR 


;DPB ADDRESS 


PC ,DRVPRM ;CALL ROUTINE 


SE EE EN Ne OE RO KR ON me 


SFQ 0128 


M 10 
MACRO V04.00 4=-APR=81 01:42:25 PAGE 29-1 


| CZRMUBO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES SEQ 0129 
54 :RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
56 027020 010346 DRVPRM: MOV R3,-(SP) i SAVE R3 
! 57 027022 010446 MOV R4,=(SP) + SAV 
| 58 027024 105737 001150 TSTB = $AUTOB RUNNING IN AUTO MODE ? 
| 59 027030 001010 BNE 1$ R 
| 60 027032 005737 001336 TST CHGADR : PROGRAM STARTED AT 200 ? 
| 61 027036 003005 BGT i$ IF Y 
| 62 027040 005737 001430 TST DRVPAR “CHANGE DRIVE PARAMETERS ? 
| 63 027044 001002 BNE 1$ :BR IF NO 
| 64 027046 104401 076610 TYPE =, ENTLMT : "ENTER ADDRESS LIMITS* 
| 66 027052 004737 027346 1$: JSR PC,GETLMT ;GET ADDRESS LIMITS 
| 67 027056 062760 177777 000122 ADD #-1,$FIRST(RO) ;SEE IF FIRST TIME STARTED 
68 027064 103417 BCS 2$ NOT 
69 027 013760 001422 000124 MOV CYLIMT »MAXCYL (ROD ;LOAD MAXIMUM CYLINDER 
70 027074 013760 001426 000130 MOV TRKLMT ,MAXTRK (RO) [LOAD MAXIMUM TRACK 
71 027102 013760 001424 000134 MOV SECLMT ,MAXSEC (RO) :LOAD MAXIMUM SECTOR 
72 027110 005060 000126 CLR MINCYL (RO) :CLEAR MINIMUM CYLINDER 
73 627114 005060 000132 CLR MINTRK (RO) :CLEAR MINIMUM T 
?% 027120 005060 13 CLR MINSEC (RO) =CLEAR MINIMUM SECTOR 
76 027124 105737 001150 2$: TSTB = $AUTOB ;RUNNING IN AUTO MODE ? 
77 027130 001072 BNE 5$ BR YE 
78 027132 005737 001336 TST CHGADR PROGRAM STARTED AT 200 ? 
79 0271 306 BGT 5$ “BR IF YES 
80 027140 005737 001430 TST DRVPAR CHANGE DRIVE PARAMETERS ? 
81 027144 001 BNE 5$ :BR IF NO 
82 027146 016403 077734 MOV TABLE(R4),R3 PARAMETER TABLE ADDRESS 
83 027152 013763 001422 000002 MOV CYLIMT,2(R3) LOAD CYLINDER LIMIT FOR MINCYL 
84 027160 013763 001422 000010 MOV CYLIMT,10(R3) :LOAD CYLINDER LIMIT FOR MAXCYL 
85 027166 013763 001426 000016 MOV TRKLMT.16(R3) LOAD TRACK LIMIT FOR MINTRK 
86 027174 013763 001426 24 MOV TRKLMT,24(R3)  ;LOAD TRACK LIMIT 
87 027202 013763 001424 000032 MOV SECLMT,32(R3) :LOAD SECTOR LIMIT FOR MINSEC 
88 027210 013763 001424 MOV SECLMT, 40(R3) LOAD SECTOR LIMIT FOR MAXSEC 
89 027216 004737 030700 JSR PC PARENT :GET THE DRIVE’S PARAMETERS 
91 027222 016003 000126 MOV MINCYL(RO).R3  ;STORE MINCYL VALUE 
92 027226 016004 000124 MOV MAXCYL(RO),R4 ;STORE MAXCYL VALUE 
93 027232 020304 CMP 3, :1S MIN. LESS THAN OR EQUAL TO MAX. ? 
94 027234 003404 BLE :BR IF YES 
95 027236 010360 000124 MOV R3,MAXCYL(RO) — ; SWAP MIN. TO 
96 027242 010460 000126 MOV R4 ,MINCYL (RO) MIN. 
97 027246 016003 000132 3$: MOV MINTRK(RO) ,R3 ; STORE MMINTRK VAL 
98 027252 016004 000130 MOV MAXTRK (RO) RS TORE MAXTRK VALUE 
99 027256 020304 CMP ; :1S MIN. LESS THAN OR EQUAL TO MAX. ? 
100 027260 003404 BLE 4$ :BR IF YE 
101 027262 010360 000130 MOV R3,MAXTRK (RO) : SWAP MIN. TO 
102 027266 010460 000132 MOV R4 ,MINTRK(RO) WAP MAX. TO MIN. 
103 027272 016003 000136 4$: MOV MINSEC(RO),R3 STORE MINSEC VALUE 
104 027276 016004 000134 MOV MAXSEC(RO).R4  ;STORE MAXSEC VALUE 
105 027302 020304 CMP ; "1S MIN. LESS THAN OR EQUAL TO MAX. ? 
106 027304 003404 BLE $ 7BR IF YES 
107 027306 010360 600134 MOV R3,MAXSEC(RO)  ;SWAP MIN. TO M 
108 027312 010460 000136 MOV R4-MINSEC(RO) ;SWAP MAX. TO MIN. 
110 027316 016069 000126 000012 5$: MOV MINCYL (RU) ,$CYL (RO) SINITIAL CYLINDER VALUE 


ee ee 


ee re ee ee eS teen eee sm ee onemene 
' 
; 


11 Oe aes 
027 


“OOONAULS Wry 
Oo 


aed ot 2.4) 4 


22 027346 

027346 
123 027350 
124 027352 
125 027360 
126 027366 
127 027370 
128 027576 
129 027404 
130 027406 
131 027414 

027414 
132 027416 


116060 


010146 
005001 


012737 


012601 
000207 


' CZRMUBO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


000132 
000136 


001465 
000037 


000022 
000007 


000004 
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000013 
000010 


001422 
001424 


001426 
040046 


001426 


“RO = 


1$: 


MOVB 
MOVB 
MOV 
MOV 


JSR 


MINTRK(RO) ,STRK(RO) 
ots ae ,$SEC (RO) 


(3b) e RS 
PC 


; INITIAL TRACK VALUE 
; INITIAL SECTOR VALUE 
(SP) ;;POP STACK INTO R4 

Fo a a INTO R3 


— TO GET THE ADDRESS LIMITS FOR THE CURRENT DRIVE TYPE 
LL: 


PC,GETLMT ;CALL ROUTINE 


DPB ADDRESS BEFORE CALLING THE ROUTINE 
GETLMT: 


R1,-(SP) ve p a7 STACK 

R1 ;START FRESH 

#821.,CYLiMT GET CYLINDER Tad 

#31. ,SECLMT GET SECTOR LIMIT 

(RO), re ;GET DRIVE NUMBER 

#18., LMT * ASSUME LAST TRACK oF OR AN RMOS 
#7, SAYTEPCRI) 31S DRIVE AN RMOS ? 

1$ “BR IF YES 

#4,TRKLMT :GET LAST TRACK FOR AN RMO3/2 
(SP)+,R1 :;POP STACK INTO R1 

PC zs RETURN 
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GENERAL SUPPORT SUBROUTINES SEQ 013" 
: ;ROUTINE TO GET THE DRIVE (MBA) SERIAL NUMBER FROM RMSN REGISTER 
2 . THIS NUMBERS CONTAINED IN THE REGISTER ARE ONLY THE 4 LSD'S OF THE 
3 : SERIAL NUMBER. 
5 ; Mov —«- #DPB, RO ;DPB ADDRESS 
¢ JSR —s PC, GETID CALL ROUTINE 
8 “RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
10 027420 GETID: 
027420 010046 Mov _—RO, =(SP) PUSH RO ON STACK 
027422 010146 MoV =—R1.=(SP) = PUSH R1 ON STACK 
027424 010246 MoV ——-R2. = (SP) :SPUSH R2 ON STACK 
027426 010546 MoV «RS. =(SP) : PUSH R5 ON STACK 
11 027430 010002 - MOV —- RO. R2 :GET INDEX TO DPB 
12 027432 006737 045230 JSR PC. SVRH70 “SAVE ALL REGISTERS 
13 027436 012702 000004 MoV #4 R2 “FOUR DIGITS TO STORE 
14 027442 016001 002166 Mov § $RMSN(RO),R1 SERIAL R 
15 027446 005005 : i: of 2 
16 €27450 006101 ROL ~—s 1 :PUT THE NEXT DIGIT 
17 027452 006105 vig ne oa INTO R5 
18 027454 006101 ROL sR 
19 027456 006105 ROL —s. R35 
20 027460 006101 ROL sR 
21 027462 006105 ROL —s RS 
22 027464 006101 ROL sR 
23 027466 006105 ROL = RS 
24 027470 062705 000060 ADD —s« #0, RS :MAKE IT ASCII 
25 027474 110560 002126 MOVB RS, SMBASN(RO) :SAVE DRIVE (MBA) SERIAL NUMBER DIGIT 
26 027500 005200 INC RO GET NEXT INDEX FOR DRIVE (MBA) SERIAL NUMBER 
27 027502 005302 DEC —_— RR TALL DIGITS TYPED? 
28 027504 003360 at NO == BRANCH 
29 027506 012605 MOV —«- (SP) +. RS ::POP STACK INTO RS 
027510 012602 MOV (SP) +°R2 POP STACK INTO R2 
027512 012601 | MOV _—s«- (SP) +. RT POP STACK INTO R1 
027514 012600 MOV (SP) +-RO POP STACK INTO RO 
30 027516 000207 , ars = RETURN 
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READ DEC144 FILE 


! .SBITL READ DEC144 FILE 
> -THIS ROUTINE IS USED TO READ THE DEC144 BAD SECTOR FILE FROM CYLINDER 
PA :558. TRACK 13. AND TO STORE THE FILE IN IT'S RESPECTIVE DPB TABLE. 
5 “THE DPB TABLE HAS ENOUGH ROOM TO SAVE THE ENTIRE MFG AND USR PORTIONS 
é “OF THE DEC144 FILE. (MFG=126. ENTRIES AND USR=126. ENTRIES) EVERY TIME 
? “THE DRIVE IS ASSIGNNED THE DEC144 FILE IS READ TO DETERMINE THE STATUS 
5 “OF THE CURRENT PACK SERIAL NUMBER. BUT, IN ORDER TO INITIALIZE THE 
2 ;BAD SECTOR ENTRY TABLE, AT LEAST ONE OF FOLLOWING STATEMENTS MUST GE VALID. - 
+ “1) - FIRST TIME PROGRAM WAS STARTED 
'3 :2) Me LOCATION "BADBLK' IS EQUAL TO 1 
15 :3) LOCATION "BADBLK' IS EQUAL TO 0 AND THE PACK 
16 : SERIAL NUMBER CHANGED SINCE THE LAST TIME IT WAS 
1s ; READ. (DEFAULT) 
19 :NOTE: IF THE SERIAL NUMBER HAS CHANGED, THIS MOST LIKELY MEANS THAT THE 
20 : PACK OR DRIVE HAD BEEN REPLACED WHILE THE DRIVE WAS DEASSIGNED. 
22 “THIS ROUTINE CHECKS THAT THE TWO SERIAL NUMBER WORDS ARE NOT ZERC 
23 “AND ARE POSITIVE NUMBERS. ALSO, WORDS 3 AND 4 ARE CHECKED TO BE ALL 
24 =ZERO WORDS. IF THE DEC144 FILE DOES NOT COMPLY WITH THIS STUCTURE, 
25 “AN ERROR MESSAGE IS TYPED AND THE ROUTINE IS EXITED. 
27 > CALL 
28 : MOV #DPB,RO :DPB ADDRESS 
29 : JSR R5S,GETADR “READ DEC144 BAD SECTOR FILES 
3 “RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
33 027520 GETADR: 
027520 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
027522 010246 MOV R2.-(SP) ;;PUSH R2 ON STACK 
027524 010346 MOV R3_-(SP) *PUSH R3 ON STACK 
34 027526 737 027346 JSR PC. GETLMT *GET ADDRESS LIMITS 
35 027532 010001 MOV RO.R1 [DPB ADDRESS 
36 027534 062701 000144 ADD #SBDSEC,R1 ; ADDRESS OF BAD SECTOR TABLE 
37 027540 010146 MOV R1,-(SP) =PUSH R1 ON STACK 
38 027542 111037 070322 MOVB (RO) .GENDPB “DRIVE NUMBER 
39 027546 012737 001466 076334 MOV #822. ,GENDPB+SCYL LAST CYLINDER 
40 027554 113737 001426 070333 MOVB ‘_TRKLMT.GENDPB+$TRK *GET LAST TRACK 
41 027562 112737 070332 MOVB #0,GENDPB+$SEC ;GET STARTING SECTOR OF 16 BIT MFG FILE 
42 027570 012737 177400 070326 MOV #-256. , GENDPB+SWCNT :ONE SECTOR WORD COUNT 
43 027576 112737 000171 070324 MOVB  #RDDAT.GENDPB+$COMND #§ : READ DATA COMMAND 
44 027604 012737 000010 001270 MOV #8. ,$CDW2 -GET LAST SECTOR OF 16 BIT MFG FILE 
45 027612 012703 101066 1$: MOV #CYLNDR,R3 “GET READ BUFFER ADDRESS 
46 027616 037 040714 JSR RO,RMOS “READ CURRENT SECTOR 
47 027622 070322 GENDPR 
48 027624 77 BR 1$ -WAIT FOR QUE 
027626 005737 070340 2$: TST GENDPB+$TATUS :READ DONE YET ? 
50 027632 001775 BEQ 2$ *BR IF NO 
51 027634 100010 BPL 3$ “BR IF NO ERROR, ELSE 
52 027636 062737 000002 070332 ADD #2.GENDPB+$SEC : INCREMENT NEXT SECTOR TO READ 
53 027644 123737 001270 070332 CMPB = $CDW2,, GENDPB+$SEC “WERE ALL SECTORS TRIED 2? 
54 027652 103357 BHIS 1$ “BR IF NO 
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READ DEC144 FILE 5 SEQ 0133 
55 027654 000470! BR 10$ ;BR_IF UNSUCCESSFUL ON RETRIES 
56 027656 005723 3$: TST (R3)+ ;ARE LSB'S OF SERIAL NUMBER VALID ? 
57 027660 005723 TST (R3)+ TARE MSB'S OF SERIAL NUMBER VALID ? 
58 027662 100462 BM! 9$ :BR IF MINUS 
027 001003 BNE 4$ 7BR_IF PLUS 
027 005763 177774 TST =4(R3) ;ARE SERIAL NUMBERS ZERO ? 
61 027672 001456 BEQ ‘ 7BR IF YES 
62 027674 005723 4$: TST (R3)+ :1S 3RD WORD ALL 0'S ? 
63 027676 001054 BNE ‘9S “BR IF NO 
027700 005723 ‘ TSI (R3)+ :1S 4TH WORD ALL O'S ? 
65 027702 001052 BNE 9$ BR IF 
66 027704 123727 070332 000012 CMPB - GENDPB+$SEC,#10. :READING USR BAD FILE ? 
67 027712 103021 BHIS  6$ ;BR IF YES 
68 027714 005737 001476 TST BADBLK ;INIT. BAD SECTOR TABLE ENTRIES ? 
69 027720 001010 BNE F YES 
20 027722 026360 177770 000140 CMP -10(R3), SPSNL (ROS ;ARE LSB'S OF S/N SAME AS BEFORE ? 
71 027730 001004 BNE 5 NO 
72 027732 026360 177772 000142 CMP =$(R3), $PSNM(RO)- :ARE MSB'S OF S/N SAME 4S BEFORE ? 
73 027740 001464 BEQ Y 
74 027742 016360 177770 00014C 5$: MOV 170(R3) SPSNL (ROS ;STORE PACK SERIAL NUMBER 
75 027750 016360 177772 000142 MOV ~6(R3) , $PSNM(RO) 
77 027756 012702 000176 6$: MOV #126. ,R2 :NUMBER OF ENTRIES PER FILE (MFG/USR) 
78 027762 012321 7$: MOV (R3)+,(R1)+ :STORE BAD CYLINDER ADDRESS 
79 027764 012321 MOV (R3)+,(R1)+ :STORE BAD TRK/SEC ADDRESS 
027766 005302 DEC R2 :DONE WITH ENTRIES ? 
81 027770 001374 : ) BNE 7$ “BR IF NO 
82 027772 123727 070332 000012 CMPB = GENDPB+$SEC.#10. ;USR BAD FILE DONE YET ? 
83 03 103044 BHIS 13$ y 
030002 112737 000012 070332 MOV #10... GENDPB+SSEC’ ;GET STARTING SECTOR OF USR FILE 
85 030010 012737 000036 001270 MOV #30. ,$CDW2 :GET LAST SECTOR OF USR FILE 
86 030016 011601 MOV (SP), :GET BEGINNING OF S$BDSEC TABLE 
87 030020 605721 8S: TST (R1)4 ;1S THIS TERMINATOR ? 
88 030022 100376 BPL 8$ F NO 
89 030024 905741 TST ~(R1) “FOUND TERMINATOR, BACKUP 1 WORD 
90 030026 000671 BR 1$ 
92 030030 104401 077000 9$: TYPE = ,MERR2 ;REPORT, INVALID DEC144 FILE STRUCTURE 
93 030034 000402 i1$ 
94 030036 104401 076720 10$: TYPE  ,MERR1 ;REPORT. FAILED TO RETRIEVE DEC144 FILES 
95 030042 104401 075625 11$: TYPE —_,UNTMSG :TYPE *ON DRIVE" 
030046 011046 | MOV (RO) ,-(SP) ‘SAVE (RO) FOR TYPEOUT 
030050 104403 TYPOS : 60 TYBE--OCTAL ASCII 
030052 002 . BYTE 2 :ETYPE 2 DIGITS) 
030053 000 ‘BYTE 0 $3 UPPRESS LEADING ZEROS 
97 036054 104401 001203 TYPE  ,$CRLF : 
98 030060 012601 MOV (SP)+,R1 POP STACK INTO R1 
99 030062 012702 000374 ‘ MOV #252. ,R2 : TOTAL NUMBER OF ENTRIES ALLOWED 
030066 012721 177777 12$: MOV #-1,(R1)+ ‘INITIALIZE CYLINDER LOCATIONS TO -7 
01 030072 012721 177777 MOV #-1,(R1)+ : INITIALIZE TRK/SEC LOCATIONS TO ~1 
102 030076 005302 DEC R2 :DONE YET ? 
103 030100 001372 BNE 12$ :BR IF NO 
104 030102 012760 177777 000142 MOV #-1,$PSNM(RO) INDICATE SERIAL NUMBER IS UNKNOWN 
105 030110 000401 BR 14$ 
106 030112 005726 13$: TST (SP) + ;RESTORE STACK 
107 030114 14$: 
030114 012603 MOV (SP) +,R3 ::POP STACK INTO R3 
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READ DECTSS FILE 


030116 012602 MOV (SP) +,R2 sgPOP STACK INTO R2 
630120 012601 MOV (SP) +,R1 ::POP STACK INTO R17 
108 030122 000205 RTS R5 EX] 
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FNTER BAD SECTOR ROUTINE SEQ 0155 


ere Nee 
SS ee eee ee + ——— 


— ae ~- 4 ee Ore eee we 


: .SBTTL ENTER BAD SECTOR ROUTINE 
? — TO ENTER BAD SECTOR INFORMATION MANUALLY 
sCALL: 
5 2 MOV ADPB,RO ;DPB ADLRESS 
$ : JSR PC ,MANTER ;CALL ROUTINE 
: =RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
10 030124 MANTER: 
030124 010146 MOV R1,~-(SP) :2PUSH R1 ON STACK 
030126 010246 MOV R2,-(SP) :sPUSH R2 ON STACK 
030130 010346 MOV R3,-(SP) PUSH R3 ON STACK 
030132 010446 MOV R4,-(SP) + PUSH R4 ON STACK 
11 030134 105737 001150 TST8 $AUTOB s;RUNNING IN AUTO MODE ? 
12 030140 001162 BNE 19$ “BRAN CH IF SO 
13 030142 005737 007430 TST DRVPAR ; CHANGE DRIVE PARAMETERS ? 
14 030146 001157 BNE FF “BR IF NO 
15 030150 005037 001340 i$: CLR CFLAG ;CLEAR THE eR FLAG 
7 C30154 104401 076640 TYPE ~ENTADR “MESSAGE TO ENTER.. 
18 030160 012704 000144 MOV “6 oe + al RS : INDEX VALUE OF TABLE ADDRESS 
19 030164 0004 ADD RO,R > TABLE STARTING ADDRESS 
20 030166 012701 000374 MOV atts. *2>,R1 :256. TOTAL BAD ita ALLOWED 
21 030172 022714 177777 e$: CMP #-1,(R4) sENTRY IN THE TABLE ? 
22 030176 001407 BEQ 3$ “BRANCH IF $0 
23 0302 062704 000004 ADD #4,R4 > ADJUST THE TABLE ENTRY POINTER 
24 030204 005301 DEC R1 :DECREMENT THE BAD SECTOR COUNT 
25 030206 001371 BNE 2$ “BR IF TO NEXT ENTRIES POSITION 
26 030210 104401 077044 TYPE MSF ULL : TYPE "BAD SECTOR TABLE IS FULL’ 
Se 030214 000534 BR 19$ : Ka 
29 030216 010146 3$: MOV R1,-(SP) :SAVE THE COUNTER AND FIRST 
30 030220 010446 MOV R4.-(SP) ENTRY POINTER PAIR 
31 030222 012714 177777 4$: MOV #~-1, (R4) ;RESET CYLINDER TO - 
32 030226 012764 177777 000002 MOV t=] “2(R4) RESET TRACK/SECTOR FIELD TO -1 
33 030234 104401 077102 TYPE ,MSGCTS “ TYPE "CYL. TRK,SEC = 
030240 104411 RDLIN sREAD THE ADDRESS 
35 030242 012601 . MOV (SP)+,R1 sREAD IN TEXT ADDRESS 
36 030244 005737 001340 TST CFLAG ;CONTROL-C ENTERED ? 
37 03025C 001011 BNE 5$ *BRANCH IF YES 
03025 105761 000001 TSTB 1(R1) sWAS IT TERMINATED WITH CARRIAGE RETURN ? 
39 030256 001021 BNE 7$ “BR IF NO 
40 030260 122711 000114 CMPB #*: , (RI) sWAS ie gaia AN *L’ ? 
41 030264 001016 BNE 7$ “BR IF 
42 030266 004737 030520 JSR PC,TYLIST s TYPE BAD SECTOR LIST FOR USER 
43 030272 000753 BR 4$ 
44 030274 012694 5$: MOV (SP)+,R4 sRETRIEVE THE ENTRY POINTER 
45 030276 012601 MOV (SP)+,R1 sRETRIEVE THE COUNT 
46 030300 012724 177777 63: MOV A~-1,(R4)+ sRESET THE TABLE 
47 030306 012724 177777 MOV H-1,(RG)+ 3TO -1 
48 030310 0605301 DEC R1 sALL DONE ? 
49 030312 001372 BNE 6$ BRANCH IF NOT 
50 030314 104401 077232 TYPE ,ALOST TYPE * * ALL CURRENT ENTRIES LOST *° 
§1 030320 000713 BR 1$ “ENTER AGAIN FROM THE FIRST POINTER 
53 040322 7$: 


ee oe nn ns 
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FNTER BAD SECTOR ROUTINE 


030322 013702 001422 MOV CYLIMT,R2 ;UPPER LIMIT OF INPUT 
030326 006537 (32772 JSR R5,CK.DIG ;CHECK THE DIGIT(S) 
0303532 030502 18$ s; CARRIAGE RETURN ONLY ENTERED 
030334 030592 18$ ;PERIOD ONLY  stdeiaate 
030336 030474 17¢ iLL ESM INPU 
030340 0350346 8$ : TERMINATED UITH a CARRIAGE RE TURN 
030342 030356 10$ i TERMINATED WITH 
030344 030352 9$ Bi gy nite WITH A oe'te 
54 0350346 010214 8S: MOV R2, (R4) iCYLINDER A DRESS 
55 030350 000444 BR 163 FINISH WITH THE CURRENT ADDRESS 
56 030352 010214 9$: MOV R2,(R4) “CYLINDER ADDRESS 
37 030354 000452 BR 18$ : *EXIT,PERIOD ENTERED 
=e 030356 010214 10$: MOV R2,(R4) “CYLINDER ADDRESS FOLLOWED BY °,’ 
60 030360 013702 001426 MOV TRKLMT,R2 ;UPPER LIMIT OF INPUT 
030364 004537 032772 JSR R5,CK.DIG ; CHECK THE DIGIT(S) 
030370 030502 18$ : CARRIAGE RETURN ONLY ENTERED 
030372 030502 18% ;PERIOD ONLY ENTERED 
030374 030474 i7$ ‘1b LEGAL INPUT 
630376 030404 11$ ‘TERMINATED WITH “ CARRIAGE RETURN 
030400 030420 13$ * TERMINATED WITH 
030402 030412 12$ TERMINATED WITH rn ofa 
61 030404 110264 000003 11$: MOVB R2, 3(R4) : TRACK ADDRESS 
62 030410 000424 BR 16$ RACK NUMBER FOLLOWED BY CR 
63 030412 110264 000003 12$: MOVB R2,3(R4) : TRACK ADDRESS 
64 030416 000431 BR 18$ “EXIT, TRACK NUMBER FOLLOWED By ‘.° 
ne 030420 110264 000003 13$: MOVB R2,3(R4) > TRACK ADDRESS FOLLOWED BY ‘,' 
67 030424 013702 001424 MOV SECLMT,R2 ;UPPER LIMIT OF INPUT 
030430 004537 032772 JSR R5,CK.DIG :CHECK THE DIGIT(S) 
030434 030502 18$ : CARRIAGE RETURN ONLY ENTERED 
030436 030502 18$ :PERIOD ONLY ENTERED 
030440 030474 17$ : ILLEGAL INPUT 
030442 030456 15$ - TERMINATED WITH - CARRIAGE RETURN 
030444 (30474 17$ > TERMINATED WITH - 
030446 030450 14$ > TERMINATED WITH A Ce 
68 030450 110264 000002 14$: MOVB R2,2(R4) =SECTOR ADDRESS 
69 030454 000412 BR 18% “EXIT, SECTOR ADDRESS FOLLOWED BY °." 
ay 030456 110264 000002 15$: MOVB R2,2(R4) = SECTOR ADDRESS 
72 030462 0053035 ~~. 16$: DEC R3 :MORE ENTRYS ? 
73 030464 001406 BEQ 18$ :BRANCH IF EXHAUSTED 
74 030466 062704 000004 ADD #4 RS :ADJUST FOR THE NEXT TABLE ENTRY 
e 030472 000653 BR 4$ sENTER NEXT SECTOR ADDRESS 
77 030474 104401 076677 17$: TYPE ~BADENT :MESSAGE BAD ENTRY 
78 030500 000650 BR 4$ :ENTER SECTOR ADDRESS AGAIN 
79 030502 062706 000004 18$: ADD #4,5P >CLEAR OFF THE STACK POINT 
80 030506 19$: 
030506 012604 MOV (SP) +,R4 :POP STACK INTO R4& 
030510 012603 MOV (SP)+,R3 «POP STACK INTO R3 
030512 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
030514 012601 MOV (SP) +,R1 ::POP STACK INTO R1 
1 030516 000207 RTS PC sEXIT 


-SBITL TYPE BAD SECTOR LIST 


85 


101 030546 
102 030552 
103 030556 
104 0350560 
105 030564 
106 030566 
107 030572 
108 030576 


ot «3d =.) od) = =) od oe) od = ed 


i 4-38 3) ot 3 
SODNAURWWAOD 
© 


126 0 

127 030670 
128 030674 
129 030676 


010146 


C7RMUBO RMOS/3/2 PERF EXER 
TYPE BAD SECTOR LIST 


077166 
000144 


177777 


035150 
032134 


000003 


075617 
033130 
0327 34 


000002 


075617 
033130 
032134 


001203 
000004 
001340 


077146 
001203 
001 340 
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yh TO LIST BAD SECTORS ON THE TERMINAL IN DECIMAL NUMBESS 
A re T IS: CY¥L,TRK,SEC 


MOV #DPB,RO ;DPB ADDRESS 
: JSR PC, TYLIST ;CALL ROUTINE 


:RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


TYLIST: 
MOV R1,-(SP) 3;PUSH R1 ON STACK 
TYPE ,LSTHDR ; TYPE °DEC144 AND MANUAL BAD SECTOR LIST’ 
MOV #SBDSEC.R1 ; INDEX VALUE OF TABLE ADDRESS 
ADD RO,R1 ; TABLE STARTING ADDRESS 


MOV R1, RSP) + SAVE ADDRESS FOR LATER 
1$: CMP ey (R1) ; TERMINATOR OR NO ENTRY IN THE TABLE ? 
BEQ 6$ “BRANCH IF YES 
MOV (R1),- (SP) ;GET CYLINDER NUMBER 
JSR PC,$SB2D : CONVERT NUMBER 
JSR PC, SUPRSL “LEFT JUSTIFY AND TYPE 
CLR -(SP) :;CLEAR HI] BYTE AND PUSH STACK 
MOVB 3(R1), (SP) GET TRACK NUMBER 
BM! 2$ “BR IF ALL BAD 
TYPE , COMMA “TYPE ° 
JSR PC,$SB2D 3; CONV ERT NUMBER 
a — “LEFT JUSTIFY AND TYPE 
2$: TST (SP) + sRESTORE STACK 
3$: CLR -(SP) ;CLEAR HI BYTE AND PUSH STACK 
MOVB 2(R1), (SP) *GET SECTOR NUMBER 
BM! 43 :BR IF ALL BAD 
TYPE , COMMA : TYPE 
JSR PC,$SB2D > CONV cri NUMBER 
_ 5 alia *LEFT JUSTIFY AND TYPE 
4%: TST (SP)+ i hl STACK 
5$: TYPE ,SCRLF 7CR- 
ADD #4,R1 S ONCREMENT POINTER 
TST CFLAG * CONTROL -C ENTERED ? 
BEQ 1$ “BRANCH IF NO 
6$: CMP (SP)+,R1 :ANY ENTRIES ? 
BNE 7$ :BR IF YES 
. TYPE »~NOENTY sTYPE "NO ENTRIES‘ 
/$: TYPE ,SCRLF *CR= LF 
CLR CFLAG ‘CLEAR CONTROL FLAG 
MOY (SP)+,R7 :;POP STACK INTO RI 
RTS PC :RETURN 


SEQ O15/ 


Re Se ete 


ri ee 
' 
: 


od nb ad ond well ond ed aad and wld 
DONA MEWM OOD NAW on 
rs . 
N 
— 
oOo 


NIN 
~-— 
eee 
eg 
re 
sO 


30 031906 
31 031010 
32 031014 
33 051016 
34 031020 
35 031022 


010346 


“TRMUBO RMD5/3/2 PERF EXER 
PARAMETER ENTRY ROUTINE 


077464 


001340 
032772 


076677 
000006 


001540 


. SBTTL 


PARAMETER ENTRY ROUTINE 
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>PARAMETER ENTRY ROUTINE 


SCALL: 


PARENT: 


1$: 


es: 


3$: 
4$: 


5$: 
6$: 


7$: 


MADR,R3 
PC PARENT 


R3,-(SP) 


0 

(R3)+,R2 
(R3)+,R5 
(R5) ,=(SP) 
» SLASH 


(SP)+,R1 
CFLAG 


6$ 
R5,CK.DIG 


;PARAM=TER TABLE ADDRESS 


;GET THE PARAMETERS 


; CONTROL Sy 
IT WAS 


;SAVE THE PARAMETER TABLE ee 


:CLEAR THE 
; ADDRESS OF 


“ ADDRESS OF 


"CONTROL C* FL 
PARAMETER NAME 


R NAME 
PARAMETER NAME TEXT 


MUM PARAMETER VALUE 


MAXI 
ZADDRESS OF 


PARAME TER 


; CURRENT VALUE OF PARAMETER 


: TYPE , THE CURRENT VALUE OF THE PARAMETER 


‘READ THE KEYBOARD 


; INPUT ASCI 


;BR_IF 
; CHECK THE 


1 STRING ® viteoia 
ENTERED ? 


DIGIT(S 


: CARRIAGE RETURN ONLY ENTERED 
:PERIOD ONLY ENTERED 
; ILLEGAL INPUT 


: TERMINATED WITH A CARRIAGE RETURN 


; TERMINATED WITH A ° 
: TERMINATED WITH A ‘’."’ 


;MOVE NEW VALUE TO PARAMETER LOCATION 


GET MORE PARAMETERS 
ENTRY 


; "BAD 
;DECREMENT 
AGAIN 
‘NEW VALUE 
sEXIT 
;CLEAR THE 


:RELOAD THE PARAMETER TABLE ADDRESS 


7 TRY 


THE TABLE POINTER 


"CONTROL C* FLAG 


AGAIN 
: CORRECT THE STACK POINTER 
;RE TURN 


- PARAMETER ENTRY ROUTINE 
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SEQ 0159 


} +99 pa ASSIGN/DEASSIGN ERROR MESSAGE 
3 : MOV AMESADR,ASNMSG ;ERROR MESSAGE ADDRESS 
4 : JSR PC, ASNERR 
; : RETURN 
7 031024 104401 001203 ASNERR: TYPE ,$CRLF CRLF 
8 031030 104401 075613 TYPE QUES 7 
9 031034 104401 075625 TYPE »UNTMSG s TYPE ‘DRIVE’ 
10 031040 010446 MOV R4,=-(SP) :: SAVE R4 FOR TYPEOUT 
7: TYPE DRIVE NUMBER 
031042 104403 TYPOS :;GO TYPE=--OCTAL ASCII 
031044 002 BYTE ra si TYPE 2 DIGIT(S) 
031045 000 BYTE 0 : ; SUPPRESS LEADING ZEROS 
11 031046 104401 TYPE :; TYPE SPECIFIC MESSAGE 
12 031050 000000 ASNMSG: .WORD 0 “MESSAGE ADDRESS 
G 031052 000207 RTS PC 
7 7 DRIVE IF A FATAL ERROR OCCURS 
17 : JSR PC,DROP 
Ls . RETURN 
20 031054 005004 DROP: CLR RS :CLEAR RS FOR DRIVE NUMBER 
21 031056 111004 MOVB (RO) ,R4 bs DRIVE NUMBER TO RG 
22 031 146437 040742 001530 BICB ATABIT(R4),ASNLST -REMOVE DRIVE FROM ASSIGNED LIST 
23 031066 146437 040142 031662 BICB ATABIT(R4) ,AUTLST ;DELETE DRIVE FROM AUTO ASSIGN LIST 
24 031074 006304 ASL RG sMAKE DR I VE NUMBER INTO A TABLE INDEX 
25 031076 010064 001532 MOV RO, DUNIT(RS) 7PUT DRIVE I* DROP LIST 
26 031102 104401 001203 TYPE ,SCRLF 
27 031106 104401 076236 TYPE i : TYPE ‘FATAL OR EXCESSIVE ERRORS* 
28 031112 104401 076311 TYPE ~MSGON “TYPE ‘ON’ 
29 031116 104401 075625 TYPE ,UNTMSG : TYPE *"DRIVE’ 
30 031122 006204 ASR R4 RIVE NUMBER 
31 031124 010446 MOV R4,~(SP) - : SAVE R4 FOR TYPEOUT 
;3 TYPE DRIVE NUMBER 
031126 104403 TYPOS ::GO TYPE--OCTAL ASCII 
031130 002 -BYTE 2 sz TYPE 2 DIGIT(S) 
031131 000 BYTE 0 3; SUPPRESS LEADING ZEROS 
2 031132 000207 1$: RTS PC 
a :ROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE 
36 031134 032777 000020 ABNRML: BIT #S5W04 ,@aSWR ‘SEE IF SWITCH 4 SET 
37 031142 001006 BNE 1 If. 17°S Set 
38 031144 023760 001444 000072 CMP MAXER, $TOTAL(RO) >CHECK TOTAL ERROR VALUE 
35 031152 101002 BH] 1$ :BR IF ERRORS DO NOT EXCEED MAX 
40 031154 000137 031054 JMP DROP :DEASSING THE DRIVE 
re 031160 000207 1$: RTS PC > RETURN 
43 :ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 
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FND OF PASS ROUTINE SEQ 0140 


1 .SBTTL END OF PASS ROUTINE 


. SS ARAAAARARARAAAAAAAAAAAAAAAEAAAAAAARHAAHKRAKRAH NAAN ARAAANAeKNAAAA AAS 


:*INCREMENT THE PASS oom ($PASS) 
:*IF THERES A yet GO 70 IT 
:*I1F THERE ISN'T JUMP TO RTURN 


$SEOP: 


031162 

031162 005737 001466 TST ENDING A Me d PASS DETERMINED BY SEEKS OR DATA WORDS ? 
031166 001412 BEQ EO? 1 R IF SEEKS 

031170 026037 000040 001456 CMP SENDAT+2(RO), eNDCON2 ; CHECK MSW OF WORDS DATA COUNT 
031176 101020 BHI EOP2 ;BR IF MSW GREATER THAN LIMIT 

031200 103404 BLO 1$ “BR iF MSW LESS THAN LIMIT 

031202 026037 000036 001434 CMP $ENDAT (RO) ,ENDCON ; CHECK LSW AGAINST LIMIT 
031210 1030135 BHIS EOP2 ;BR IF EQUAL OR GREATER 

031212 000207 1$: RTS PC 

031214 026037 000044 001442 EOP1: CMP SENDSK+2(RO),ENDSEK+2 ;CHECK MSW OF SEEK COUNT 
031222 101006 BHI EOP2 ;BR IF MSW GREATER THAN LIMIT 

931224 103404 BLO 1$ ;EXIT IF MSW LESS THAN LIMIT 

031226 026037 000042 001440 CMP SENDSK (RO) , ENDSEK ; CHECK LSW OF SEEK COUNT 
031234 103001 BHIS EOP2 ;BR IF EQUAL OR GREATER 

031236 000207 1$: RTS PC 

031240 010446 EOP2: MOV R4,~(SP) SAVE R4 

031242 032777 000400 147704 BIT #SWO08 ,aSWR Se: gh END OF PASS TYPEOUT ? 

031250 001025 BNE 1$ ;BR IF YES 

031252 104401 001205 TYPE pea ;CR-LF 

031256 104401 076272 TYPE ENDPA END OF PASS FOR THE DRIVE 

031262 016046 000104 MOV $PASSC CRO), -(SP) 7SAVE SPASSC(RO) FOR TYPEOUT 
031266 104405 TYPDS ;;G0 TYPE=-DEC IMAL ASCII WITH SIGN 
031270 111037 001324 MOVB (RO) ,UNIT : STORE THE DRIVE NUMBER 

031274 104401 076511 TYPE -MSGON ‘7 PE "ON" 

031300 104401 075625 TYPE ~UNTMSG *DRI 

031304 013746 001324 MOV UNIT ,~(SP) 7 SAVE UNIT FOR TYPEOUT 

031310 104405 TYPOS :GO TYPE--OCTAL ASCII 

031312 002 erre:. 2 :iTYPE 2 DIGIT(S) 

031315 000 -BYTE Q 3; SUPPRESS LEADING ZEROS 

031314 104401 001203 TYPE , SCRLF 7 CR=L 

03132G 111004 1$: MOVB (RO) ,R4 :MOVE DRIVE NUMBER 

C31322 105737 001150 TSTB SAUTOB ;RUNNING IN AUTO MODE ? 

031326 001410 BEQ $ ; F NO 

031330 136437 040142 031662 BITB ATABIT(R4) ,AUTLST 31S DRIVE ALREADY ASSIGNED TO AUTO LIST ? 
031336 001071 BNE $ ; F YES 

031340 156437 040142 031662 BISB ATABIT(R4) ,AUTLST :ADD DRIVE TO AUTO ASSIGN LIST 
031346 000443 BR 3$ 

031350 026037 000104 001456 2$: CMP SPASSC (RO) PASSES ;SEE IF AT END OF TEST 
031356 103437 BLO $ IF NOT 

031360 032777 000020 147566 BIT ASWO04 ,ASWR : TYPE END OF TEST MESSAGE ? 

031366 001033 BNE 3$ :BR IF NO 

031370 104401 076316 TYPE -ENDTST ; TYPE A OF TEST‘ 

031374 104401 076334 TYPE »-MSGF OR ; TYPE "FOR® 

031400 104401 075625 TYPE -UNTMSG "DRIVE °* 

031404 013746 001324 MOV UNIT ,=(SP) ‘SAVE UNIT FOR TYPEQUT 

037410 104405 TYPOS ::GO TYPE=-OCTAL ASCII 


.. 
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END OF PASS ROUTI SEQ 0141 


031412 002 «BYTE 2 is TYPE 2 DIGITS) 
031413 000 BYTE OQ ; SUPPRESS LEADING ZEROS 
031414 146437 040142 001530 BICB ATABIT(R4S), ASNLST :;DELETE DRIVE FROM ASSIGNED LIST 
031422 006304 ASL RG ;MAKE DR ] VE NUMBER INTO TABLE INDEX 
031424 010064 001532 MOV RO, DUNIT(R4) ;PUT BLOCK ADDRESS INTO DROP LIST 
031430 105737 001530 TSTB ASNLST ALL DRIVES ARE DEASSIGNED ? 
031434 001041 BNE 7$ “BR IF NO 
031436 005237 001216 INC $DEVCT : INCREMENT DEVICE COUNT 
031442 005237 001214 INC $SPASS ; INCREMENT THE PASS COUNT 
031446 042737 100000 001214 BIC #100000,$PASS = AVOID NEGATIVE NUMBER 
031454 000431 SR 7$ 
031456 032777 000400 147470 38: BIT #SW08,aSWR Fes ia END OF PASS TYPEOUT 7? 
031464 001002 : BNE 4$ BR F YES 
031466 004737 023636 JSR PC ,SUMARY s; TYPE THE DRIVE’S STATISTICS SUMMARY 
031472 010346 4$: MOV R3,-(SP) *SA R3 
031474 010004 MOV RO,R4 *DRIVE'S BLOCK ADDRESS 
031476 062704 000036 ADD ASENDAT RS SADD ie STARTING ADDR OF SECTIONS TO CLEAR 
031502 012703 000006 MOV RS R OF LOCNS TO BE CLEARED 
. * (CLEAR SENDAT, SENDSK AND SOPERC COUNTERS) 
031506 005024 S$: CLR (R4)+ > CLEAR THE LOCN 
031510 0605303 DEC R3 ; DECREMENT ™* LOCATION COUNTER 
031512 001375 BNE 5$ IF MORE TO GO 
031514 012693 MOV (SP)+,R3 “REST ORE R3 
031516 005260 000104 INC $PASSC (RO) : INCREMENT THE PASS COUNT 
031522 105737 001150 6$: TSTB SAUTOB :RUNNING IN AUTO MODE ? 
031526 001404 BEQ 7$ ;BR IF NO 
031530 023737 001530 031662 CMP ASNLST ,AUTLST sHAVE ALL DRIVES COMPLETED PASS IN AUTO MODE ? 
15 001402 8EQ 8$ “BR IF YES 
031540 012604 7$: MOV (SP) +,R4 “RESTORE RS 
031542 000207 RTS PC ;RETURN 
031544 005237 031662 8$: INC AUTLST 3 CLEAR ir eee LIST FOR NEXT PASS AND 
031550 001375 BNE 8$ “WAIT FOR T 
031552 012737 000340 177776 MOV #PR7,PS >DON'T aLOw. ANY INTERRUPTS 
031560 005237 001216 INC SDEVCT > INCREMENT DEVICE COUNT 
1564 005237 00121 INC $SPASS +s INCREMENT THE PASS NUMBER 
031570 042737 100000 001214 BIC #100000, $PASS ON'T ALLOW A NEG. NUMBER 
031576 005327 DEC d+ : :LOOP? 
031600 SEOPCT: .WORD 
031602 003013 BGT $DOAGN 77 YES 
1604 012737 MOV (PC)+,a(PC)+ : :RESTORE COUNTER 
31606 1 SENDCT: .WORD 1 
031610 031600 SEOPCT 
031612 013700 000042 $GET42: MOV a#42,R0 + GET MONITOR ADDRESS 
031616 001405 BEQ SDOAGN :BRANCH IF NO MONITOR 
031620 RESET >: CLEAR THE WORLD 
031622 004710 SENDAD: JSR PC, (RO) >:GO TO MONITOR 
031624 000240 NOP >: SAVE ROOM 
031626 000240 NOP : FOR 
1630 000240 NOP > sACT11 
031632 $DOAGN: 
031632 000137 JMP a(PC)+ : sRETURN 
1634 031636 $RINAD: .WORD RTURN 
3 031636 012706 001100 RTURN: MOV ASTACK, SP sRESTORE STACK 


LLL OS A ES Ny he eh me 


M 11 
CZ7RMUBO RMO5/3/2 PERF EXER MACRO V04.00 4-APR=-81 01:42:25 PAGE 35-2 
END OF PASS ROUTINE SEQ O1é¢ 


| 4 031642 005237 001212 INC STESTN ; INCREMENT THE TEST NUMBER IN THE MAIL BOX 
5 031646 004737 (033226 JSR PC, STKINT :MAKE SURE KEYBOARD INTERRUPT AND 
6 031652 004737 025344 JSR PC,CKCLK i SYSTEM ere ARE STiLL ON. 
; 031656 000137 006142 JMP MAIN ;RETURN TO LOOP 

| 9 031662 900000 AUTLST: .WORD 0 _ sAUTO ASSIGN LIST (USED IN AUTO RUN MODE) 


‘ 
\ 


— CZRMUBO RMO5/3/2 PERF EXER 
- END OF PASS ROUTINE 
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CO NAMES WHO OD NOUS Wro-s 
2) 


031710 


031754 


re a et re te a oe rm mm eae eee 


013746 


104412 
016605 
00 


037024 
037022 


031710 


000026 


000030 
000032 


031756 
000030 
000032 


N 11 
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—_ TO GET THE REMAINDER OF THE RANDOM NUMBER 


: MOV NUMBER ,R5 sDIVISOR INTO RS 
: JSR PC,GETREM 
: RETURN sREMAINDER IS IN RS 
$LONUM, = (SP) :STORE RANDOM NUMBER ON THE STACK FOR DIVIDE 


GETREM: MOV 
M :UPPER PART 
;PUT THE DIVISOR ONTO THE STACK 
i DIVIDE THE RANDOM NUMBERS 
T THE REMAINDER INTO RS 
‘ADJUST THE STACK POINTER 


~SBTTL INTEGER DIVIDE ROUTINE 


OI IOIOIGI I IGIOIIOIUIIIOIIIOIIIUIOIIIIOIOIOIOIOIOIOIOIOIOIOI ISOS SSASSAIASSSAI ISAACS 
 STHIS ROUTINE WILL DIVIDE A 32-BIT TWO’S COMPLEMENT INTEGER 
=*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING 
:*A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
>*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
7 *SAME -SIGN AS THE DIVIDEND. 


**CALL: 

LOW DIVIDEND,~(SP) 
MOV HIGH DIVIDEND,-(SP) 
MOV are 


3zAS LARGE AS THE DIVISOR 


- 
-* 
;* JSR PC.$ 
:* RETURN ; QUOTIENT & REMAINDER ARE ON THE STACK 
-* 
;* STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
x (== — ey cee seme == a my ee me A NE NE NR I ES A 
Ty TOP REMAINDER ALL ZEROS ALL ONES 
:* +2 QUOTIENT ALL ZEROS ALL ONES 
** 
** 
>*NOTE: THIS ROUTINE WILL LINK TO THE DIVISION SUBROUTINE (°M.DPID‘). 
$DIV SAVREG ;STORE RO - R5 
MOV 26(S5P) ,R5 :DIVISOR 
CLR R4 :OTHER DIVISOR WORD 
MOV 30(SP) ,R2 ;UPPER DIVIDEND WGRD 
MOV 32(SP),R5 ;LOWER DIVIDEND WORD 
is 7 :CLEAR OTHER DIVIDEND REGISTERS 
JSR PC ,M.DPID 3;GO TO THE DIVIDE ROUTINE 
MOV R1,30¢SP) sREMAINDER ON THE STACK 
V R3,32(SP) ;QUOTIENT ON THE STACK 
RESREG *RESTORE RO - R5 
MOV (SP) +, (SP) =MOVE RETURN UP THE STACK 
RTS PC 
SBTTL DOUBLE PRECISION DIVISION SUBROUTINE 
3 CALL: 
: JSR PC,.M.DPID 


ee os 
- sd EN Se FE on cm SN Ps oe ee 


32 THE HIGH DIVIDEND MUST BE < 1/2 


SEQ 0145 
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1756 012746 000040 
1762 010446 


16 005466 000002 
71 031776 005666 000002 


74 032004 066600 000002 


000006 


MOR 


a ar i ie le re Se ee er 


000010 


000006 


aed end end cel ne ee een ed en ce onl ed 
2SSSQVEFESRAVLSS 
DOVOOOCVOOCCWOCOC0OOO0O0O0oO 
WIA AALAAWS GW 
USRVSENSKRVS 

& 

N 

& 


MOM 


> 03204 
87 032042 066600 000004 
88 032046 000404 
89 032050 060501 
90 03 
ews 


REMAINDER AFTER ClV 
QUOTIENT AFTER DIVI 


M.DP40: ROL 


~ M.DP41: 


M.DP42: 


M.DP44: ROL 


M.DP5O: 


B ie 
MACRO V04.90 4=APR=-81 01:42:23 PAGE 36-1 
DOUBLE PRECISION DIVISION SUBROUTINE 


= RO=R1-R2-R3 (RO=MSD) 
= RS“RS (R4G=MSD) 


fans = RO-R1 (RO=MSD) 


] 
SION = R2=R3 (R2=MSD) 


#40,4(SP) : COUNTER FOR DIVISION CYCLES 
R4,-(SP) “HIGH ORDE 
R5.=(5P) “LOW ORDER DI VISOR TO THE STACK 

(SP) “FORM NE 
asP : VERSION OF THE DIVISOR 
2(SP) 
asP_R1 
RO - :PERFORM THE INITIAL SUBTRACTION 
M.DP50 : IF CARRY THEN OVERFLOW HAS OCCURRED 
(SP) “THIS IS A LONGER LASTING CARRY BIT 
R2 
R1 
RO 
asP TEST ‘‘CARRY’’ INDICATOR 
M.DP41 ‘IF NO ““CARRY’’ THEN ADD ELSE SUBTRACT 
asP “CLEAR UP FOR NEXT TIME 
2(SP) ,R1 

0 ADD -(DIVISOR) 

SP “SET ‘CARRY’ 
4(SP) .RO:<= 
M,DP42 
R5,R1 
RO :ADD +(DIVISOR) 

Pp Sug :SET ‘‘CARRY** 
R4,RO :<- 

Pp : SET af CARRY’ 
asP “TEST THE UPDATE INDICATOR 

ee sm) TIF ZERO FORGET IT 

3 “NO CARRY POSSIBLE HERE 
6(SP)  :<- “DECREMENT COUNTER 
M.DP4O “BRANCH IF MORE TO DO 
M.DP44 

“RI 

R4 RO ’ 

R3 j 
#10,SP :ADJUST STACK BY 4 WORDS 

PC 

#6,SP 

PC 


EE ee . 


SEQ 0144 


i en a oe 


wed eet 8 etd ee) 2 
NOVPWH —$OWOO VOR wn» 
i) 


co 
© 
Ww 
N 
a 
Vi 
Nm 


19 032156 
62 


36 032252 


010046 
016600 
005037 
000405 
010046 
016600 
010057 
105710 
001406 
122710 
001006 
112720 
000770 


CZ7RMUBO RMO5S’3/2 PERF EXER 
SUPRS = TYPE ASCIZ, REPLACE LEADING "O° S wITH BLANKS SFO 014‘ 


000004 
032224 


000004 
032224 


000060 
000040 
000060 
032224 
032224 


C 12 
¥04.00 4-APR-81 01:42:23 PAGE 3/ 
-SBTTL SUPRS = TYPE ASCIZ, REPLACE LEADING 0°S WITH BLANKS 
~SBTTL SUPRSL -TYPE ASCIZ, LEFT JUSTIFY 


Zs ereeraenes (ARR RRBARSBAASLASASASARARRRARRRARA RRR RRA RR RRARARRRAR SARS A RAS S| 


3 CALL: 
, MOV #NUMADR , = (SP) sFIRST ADDRESS OF ASCIZ STRING 
: JSR PC, SUPRS 
. MOV #NUMADR , = (SP) sFIRST ADDRESS OF ASCI7 STRING 
; JSR PC, SUPRSL 
SUPRSL: MOV RO,-(SP) ; SAVE RO - 
MOV 4(SP),RO :GET POINTER TO MESSAGE 
CLR SUPR2 
BR SUPR1 
SUPRS: MOV RO,-(SP) :SAVE RO | 
MOV 4(SP) ,RO :GET POINTER TO MESSAGE 
ree MOV RO,SUPR2 :GET POINTER FOR TYPING 
1$: TSTB (RO) ZTEST FOR TERMINATOR 
BEG 2$ sYES 
os — :IS THIS A ‘0'' ? 
MOVB #40, (RO) + sREPLACE IT WITH A ‘BLANK’’ 
BR 1$ sNEXT ‘ee 
2$: DEC RO sBACKUP 1 
MOVB #°O, (RO) MAKE IT ‘0"’ 
3$: TST SUPR2 *LEFT JUSTIFY ? 
BNE 4$ *NO 
MOV RO, SUPR2 sYES 
4$: TYPE 
SUPR2: .WORD OQ 
MOV (SP)+,RO sRESTORE RO 
MOV (SP)+, (SP) “RESTORE STACK 
RTS PE 


me me ee eee | 
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$SUPRS - TYPE ASCI7, REPLACE LEADING 0'S 


se ee — 


MI EWN —~O D0 NOUS wr - 


— ee ee ee | 


19 032246 


20 
21 032250 


22 032252 
2% 032256 


38 032526 
39 032330 
40 032332 


000004 
03252% 


000004 
032324 


000060 
000040 


000060 
032324 


052324 


MACRO 


S WITH BLANKS 


.SBTTL $SUPRS = TYPE ASCIZ, REPLACE LEADING 0°S WITH BLANKS 
.SBTTL S$SUPRL = TYPE ASCIZ, LEFT JUSTIFY 


SRAAHRAARAAARAARAAARAAARAAAHAAAAAARATANTARAAAAKEHAHAAARATAARAAAAAAAAS 


“THIS ROUTINE IS SAME AS ‘SUPRSL' AND 
sWILL SUPPRESS THE ERROR TYPEOUT IF Sw! met 


D1 
VO4.00 4-APR-81 01:42:25 PAGE 3 


2 
8 


"SUPRS*, EXCEPT THAT IT 
THIS ACCOMPLISHED BY 


tie TRAP CALL ‘DISPLY", INSTEAD OF ‘TYP 


> OR 


$SUPRL : 


$SSUPRS: 


$SUPR1: 
1$: 


2$: 
3$: 


4$: 
$SUPR2: 


ET A A i SEN ns ae = ak 


JSR 


LL EL ee lt le 


A#NIMADR , = (SP) 


PC.$SUPRS 


A#NUMADR , - (SP?) 


PC, SSUPRL 
RO,-(SP) 


RO,-(SP) 
4(SP),RO 
RO, $SUPR2 
(RO) 

2$ 
oo 
#40, (RO)+ 
1$ 

RO 

#°O, (RO) 
SSUPR2 
4$ 

RO, $SUPR2 
0 
(SP)+,RO 


(SP)+, (SP) 
PC 


sFIRST ADDRESS OF ASCIZ STRING 


z:FIRST ADDRESS CF ASCIZ STRING 
;SAVE RO 
:GET POINTER TO MESSAGE 


; SAVE RO 
;GET POINTER TO MESSAGE 


;GET POINTER FOR TYPING 
‘vas. FOR TERMINATOR 
:1S THIS A 0" ? 

:NO 


SREPLACE IT WITH A ‘BLANK’ 


;BACKUP 1 
;MAKE IT ‘0°’ 

sLEFT JUSTIFY ? 

3;NO 

YES 

z TYPE, UNLESS Sw13=1 


sRESTORE RO 
TRESTORE STACK 


ee ee ee ee 


SEQ 0146 
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SSUPRL = TYFE ASCIZ, LEFT JUSTIF 


E 1 
ne VO04.00 4-APR=-81 01:42:23 PAGE 3 


2 
9 


ae ES SS sluts EE ew ce meee coe 


} ¢ROUT INE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 

. : MOV #ADR,=(SP) sADDRESS OF NUMBER (IN ASCII) 

4 : JSR R5,REPLZ :RERLACE PRECEDING ZEROS WiTH BLANKS 

3 : pa .WORD N 'N' IS NUMBER OF DIGITS TO SE TYPED 

7? : MOV HADR,-(SP) ; ADDRESS OF NUMBER (IN ASCII) 

el : JSR R5,FILLZ i PRECEDING ZEROS 
a : . WORD -'N' IS NUMBER OF DIGITS TO BE TYPED 
r 032334 005237 032442 FILLZ: INC FILLO ;LEAVE ZERO'S 
13 032340 010046 REPLZ: MOV RO,-(SP) : SAVE RO 
14 032342 0166900 000004 MOV 4(SP),RO zs; ADDRESS OF NUMBER TO RO 
15 032346 005737 032442 TST FILLO ;LEAVE PRECEDING ZEROS ? 
16 032352 001014 BNE 3$ BR IF YES 
17 032354 122710 000060 1$ CMPB #°0, (RO) “BYTE EQUAL TO ASCII ‘O° ? 
18 032360 1 BNE :BR IF NOT 
19 032362 112710 000040 MOVB #40, (RO) sREPLACE THE ZERO WITH A SPACE 
20 632366 005200 INC RO : INCREMENT THE dg ADDRESS 
21 032370 000771 BR $ -GO BACK AND LOOK FOR MORE LEADING ZEROS 
22 032572 105770 2$ TSTB (RO) : SEE IF ZERO BYTE TERMINATOR 
23 032374 001003 BNE 3$ F NOT 
24 032376 005300 DEC “BACKUP STRING —e 
25 032400 112710 000060 MOVB #'0, (RO) ;PUT A ZERO BACK IN 

032404 016600 000004 3$: MOV 4(SP),RO “PUT ADDRESS OF FIRST CHARACTER ON STACK 
27 032410 105720 4$: TSTB (RO) + :SEE IF ZERO BYTE TERMINATOR 
28 032412 001376 BNE 4$ BR IF NOT 
29 032414 005300 DEC “BACKUP STRING POINTER 
032416 162500 SUE (R5)+,RO “ADJUST ADDRESS 
31 032420 010037 032426 MOV RO,5$ :GET ADDRESS FOR TYPEOUT 
32 032424 104401 TYPE -TYPE THE NUMBER 
33 032426 000000 5$: -WORD 0O : ADDRESS 
34 032430 012600 MOV (SP)+,RO ::POP STACK INTO RO 
35 032432 012616 MOV (SP)+, (SP) :RESTORE STACK 
36 032434 005057 022442 CLR FILLO sRESET FILL FLAG 
o. 032440 000205 RTS R5 :RETURN 
3 032442 000000 FILLO: .WORD 0O : IF SET. LEAVE PRECEDING ZERGS FOR TYPE 
4] :ROUTINE TO TYPE AT PRIORITY 4 
43 032444 013746 177776 TYPRI4: MOV  a@A4PS,-(SP) ; SAVE THE PRESENT STATUS 
44 032450 012737 000200 177776 MOV #200, ,a4PS -CHANGE THE PRIORITY TO 4 
45 032456 012537 03246 MOV (R5)+,1$ MESSAGE ADDRESS 
46 032462 004737 035450 JSR PC, $TYPE : TYPE THE MESSAGE 
47 032466 000000 1$: .WORD 90 “MESSAGE ADDRESS GOES HERE 
48 032470 000205 RTS R5 RETURN 
rs pa ne TO TYPE THE MBA (DRIVE) SERIAL NUMBER IN DECIMAL 
; CALL: 

52 E MOV 4#DPB,RO sADDRESS OF DRIVE PARAMETER BLOCK 
ge . de JSR PC, TYMBA CALL ROUTINE 
55 : MOV #DPB,RO ADDRESS OF DRIVE PARAMETER BLOCK 
56 JSR PC, TYPMBA “CALL ROUTINE (WITH NO HEADER MESSAGE) 


—_—_—— ee - ee er eee See 
——: LEELA OE Sa eae 


= $SUPRL = TYPE ASCIZ, 


Se gsr eet mae - 
®. 
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LEFT JUSTIFY 


38 RO = DPR ADDRESS BEFORE CALLING THE ROUTINE 

60 032472 104401 077303 TYMBA: TYPE ,MBASN :TYPE "MBA S/N:' 

61 032476 010037 032512 TYPMBA: MOV RO,1$ “ADDRESS OF DPB 

62 032502 062737 002126 032512 ADD ASMBASN, 1$ s INDEX TO DRIVE (MBA) SERIAL NUMBER 
63 032510 104401 TYPE ‘TYPE THE DRIVE (MBA) SERIAL NUMBER 
64 032512 000000 1$: .WORD 0 JADDRESS OF DRIVE (MBA) SERIAL NUMBER FIELD 
65 032514 104401 076477 TYPE »PERIOD : TYPE 

6 032520 000207 RTS PC “RETURN 

68 ROUTINE TO TYPE THE PACK SERIAL NUMBER IN OCTAL 

6 : CALL 

70 : MOV #DPB,RO s ADDRESS OF DRIVE PARAMETER BLOCK 
a ae JSR PC, TYPACK “CALL ROUTINE 

73 : MOV A#DPB,RO sADDRESS OF DRIVE PARAMETER BLOCK 
- : JSR PC, TYPCK *CALL ROUTINE (WITH NO HEADER MESSAGE) 
76 “RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 

78 032522 104401 077270 TYPACK: TYPE ,PACKSN : TYPE "PACK S/N:' 

79 032526 005760 000142 . TYPCK: TST SPSNM(RO) :1S SERIAL NUMBER VALID ? 

80 032532 002003 BGE 1$ “BR IF VAi ID 

81 032534 104401 076672 TYPE NONE = TYPE "NONE 

B2 032540 000425 BR $ 

83 032542 016046 000142 1$: SPSNM(RO),-(SP) ;GET HI NUMBER (MSB) 

84 032546 001414 BEQ 2$ :BR IF ZERO 

85 032550 004757 033160 JSR et eee : CONVERT TO OCTAL NUMBER 

86 032554 004737 032134 JSR PC, SUP “AND TYPE IT LEFT JUSTIFIED 

87 032560 016046 000140 MOV spine (ROD, -(SP) ;GET LOW NUMBER (1SB) 

88 032564 004737 033160 JSR PC ,$SB20 :CONVERT TO OCTAL NUMBER 

89 032570 004537 032334 JSR RS FILLZ : TYPE WITH PRECEEDING ZEROS 

50 032574 600005 .WORD 5 >5 DIGITS 

91 032576 000406 BR 3$ 

92 032600 016016 000140 2$: MOV SPSNL(RO),(SP) ;=GET LOW NUMBER (LSB) 

93 032604 004737 033160 JSR PC,$SB20 *CONVERT TO OCTAL NUMBER 

94 032610 004737 032134 JSR PC, SUPRSL “AND TYPE IT LEFT JUSTIFIED 

- 032614 000207 3$: RTS PC RETURN 

97 sROUTINE TO TYPE ERRORS 

98 * CALL: 

99 : DISPLY sMUST DEFINED IN “TRAP® TABLE 
100 : ME SADR -ADDRESS OF MESSAGE 

4 g RE TURN 

103 032616 032777 020000 146330 S$DSPLY: BIT 1T13,aSwR : INHIBIT ERROR TYPEQUT ? 

104 032624 1 BNE 1$ “BR IF YES 

105 032626 005037 177776 CLR @APS sSET PRIORITY TO ZERO 

106 032632 000137 035450 JMP $TYPE > TYPE THE MESSAGE 

107 032636 062716 006002 1$: ADD #2, (SP) “INCREMENT THE RETURN 

108 032642 RT]. + RE TURN 


“ZRMUBO RMOS/3/2 PERF EXER 
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ths ss ss see 


SSUPRL = TYPE ASCIZ, LEFT suUSTIFY SEQ 914% 

1 : THIS ROUTINE IS USED TO CHECK IF 
; ry tt CHARACTER 1S A DIGIT BET een 5 AND 7. 

4 : MOV MADR,R1 ; ADDRESS OF a AEE CHARACTER 
5S ; JS& R5,CK.OCT :CHECK THE CHARACTER 

6 : RE TURN1 * CHARACTER IS NOT apt 0-7 
? ; RE TURN2 | * CHARACTER IS INR2Z A 

: : “OCTAL DIGIT 

10 032644 121127 000060 CkK.OCT: CMPB (Ri), #'0 LESS THAN ZERO? 

11 032650 103407 BLO 1$ ;YES == BRANCH 

12 032652 121127 000067 CMPB (R1),4'7 ; GREATER THAN SEVEN? 

13 032656 101004 B.31 1$ ;YES == BRANCH 

14 032660 111102 MOVA (R1),R2 “GET THE CHARACTER 

75 032662 042702 177770 BIC #*C7,R2 “STRIP AWAY THE ASCII 

16 9032666 005725 TST (R5)+ “ADJUST FOR RETURN 

ut 032670 000205 1$: RTS R5 sRETURN 

19 > THIS ROUTINE IS USED TO CHECK AN ASCII apo 

. AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9 

22 : MOV HADR,R1 : ADDRESS OF ASCII CHARACTER 

23 : JSR R5S,CK.DEC + CHECK THE CHARACTER 

24 : RETURN] sNOT BETWEEN 0 AND 9 

25 2 RE TURN2 *BE TWEEN 0 AND 9 

$3 : zR2 = DIGIT 

28 032672 121127 000060 CK.DEC: CMPB (R1),4°O LESS THAN ZERO? 

29 032676 103407 BLO 1$ >YES -- BRANCH 

30 032700 121127 900071 CMPB (R1),4°9 : GREATER THAN NINE? 

31 0352704 101004 BHI 1$ YES -- BRANCH 

32 032706 111102 MOVB (R1),R2 “GET THE CHARACTER 

33 032710 042702 000060 BIC #°O.R2 :STRIP AWAY THE ASCII 

34 032714 005725 TST (R5)+ > ADJUST FOR RETURN 

= 032716 000205 1$: RTS R5 > RE TURN 

37 : THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 

38 :DETERMINE WHAT IT IS. 

39 “CALL: 

40 : MOV #ADR,R1 :ADDRESS OF ASCi!l CHARACTER 

4} JSR RS,CK.CHR : CHECK CHARACTER 

42 RETURN ADR? : UNKNOWN CHARACTER 

43 RETURN ADR2 ; CARRIAGE RETURN * (R1)=ADR+1 

44 RETURN ADR3 > COMMA * (R1)=ADR+1 

45 RETURN ADR4 *PERIOD * (R1)=ADR+1 

46 RETURN ADRS :DIGIT BETWEEN 0 = (. 

47 RETURN ADR6 :DIGIT BETWEEN 8 AND 

y- :R2 = DIGIT * (R1)= coke 

50 032720 105711 TSTB (R1) :""CARRIAGE RETURN'*? 

51 032722 001417 BEQ 3$ ;YES =~ BRANCH 

52 032724 121127 000054 CMPB (R1) a, " via 

53 032730 001413 BEQ 2$ : YES © GR 

54 032732 121127 000056 CMPR (R1) ,#' :' PERIOD’? 

55 032736 7 BEQ 1$ :YES == BRANCH 

56 032740 7 032672 JSR RS,CK.DEC “DIGIT? 

S7 032744 0 BR :NO == BRANCH 


$SSUPRL 


A —- = 


OL ee SSE Eee — == 
LAE SC A - 


= =~ eee ee eee eee: = 
‘ 


58 032746 
59 032752 
60 032754 
61 052756 


66 052770 


81 032772 


004537 
005725 


000205 


010446 
010346 


CZRMUBO RMOS/3/2 PERF EXER 
~- TYPE ASCIZ, LEFT JUSTIFY 


032644 


032720 


000004 


032720 


4$: 


R5,C*.OCT 
(R5)+ 
(R5)+ 
(R5)+ 
(R5)+ 
(R5)+¢ 


R1 
(R5),R5 
R5 
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; COMMA 
; CARRIAGE RETURN 


sMOVE POINTER TO NEXT CHARACTER 
; UNKNOWN CHARACTER 


;RETURN 


3THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 


=CHARACTERS AND FORMS A DECIMAL 


“CALL: 


CK.DIG: 


3$: 


4$: 
5$: 


#ADR,R1 


R 
R5,CK.CHR 


#4 RS 
R3 
R3,-<(SP) 
R3 


R3 
(SP)+,R3 
R2.R3 
RS5S,CK.CHR 


VALUE BINARY NUMBER IN R2. 


;ADDRESS OF ASCIZ STRING 

:MAX. MAGNITUDE OF INPUT NUMBER 

“CHECK DIGITS 

SCR’ ONLY ENTERED -- R2=0 

:PERIOD'’ ONLY ENTERED -- R2=0 . 
;ILLEGAL CHARACTER OR INPUT TOO LARGE =~ R2=? 
"ICR" = NUMBER 


“COMMAS -- R2 = NUMBER 
:' PERIOD’’ -~ R2 = NUMBER 
sSAVE R44 
:SAVE R3 


sSAVE THE MAX. SIZE ON THE STACK 
:START WITH O 


CHECK ONE CHARACTER 
:ILLEGAL_CHARACTER 
CARRIAGE RETURN 


:DIGIT 0-7 

sDIGIT 8-9 

iSTEP RETURN POINTER PAST 
; INPUT NUMBER *2 


; SAVE x2 
4 


"*CR'’ & "PERIOD’” RETURNS 


;*8 
5 (*2)+(*8) = #10 
UPDATE THE INPUT NUMBER 


L 
: CARRIAGE RETURN 


¢ 
wae een 


“DIGIT 0-7 
“DIGIT 8-9 
“DOES A "'CR'' FOLLOW THE "PERIOD" 


:BR IF NOT 

; INCREMENT THE RETURN 

; INCREMENT THE RETURN 

: INCREMENT THE RETURN 

=CHECK THE MAGNITUDE GF THE NUMBER 
:BR IF ENTERED NUMBER TOO LARGE 


mmm ee ee eee eee 


= eee Hee errr nn ere te ete se sts tS hese nee ee " 


“ZRMUBO RMO5/3/2 PERF EXER 
SSUPRL = TYPE ASCIZ, LEFT suSTIFY 


ee ee ee eee ee 


103 033104 
104 


FAsASSSIESE 
COCOCOOO0O 
LAAIAIAI AAI A 
WANAIAN AAA A 


ee ee eee ee i ee ee ee eo | 
> — «| .8 —s 


—_— 
OnNAW 


119 


124 035130 
125 0335156 
126 035142 
12? 033146 
128 033152 
129 033154 
130 


131 


14 


146 033204 


016637 


000002 
033154 
037122 
000002 


000000 


000002 
033204 


000000 
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033154 


033204 


LL LOL LE I TS EE TE Ee 


:THIS ROUTINE WILL CONVERT A 


MOV 
RTS 


; UNS I GNED DECIMAL ASCIZ NUMBER 


“NOTE: 


$SB2D: 


1$: 


>THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 


s CALL: 


MOV 
JSR 


RETURN 
THE PROGRAM REQUIRES THIS FORM tea.’ 


NUMBER , = (SP) 
PC,$SB2D 


;BYPASS iNCREMENT 
; INCREMENT RETURN PAST INVALID RETURN 


; INCREMENT RETURN 
; SETUP “gt ary POINTER 


ZENTERED V 
; CLEAN 


ERESTORE & 
SRESTORE R4 
:GET RETURN ADDRESS 
TURN 


LUE 
MAK SIZE OFF OF STACK 


aad UNSIGNED BINARY NUMBER TO AN 


aH THE NUMBER ON THE STACK 
ALL: 
:ADDRESS OF 


THE SYSMAC LIBRARY, REV C AND 


2(SP),1$ 
#1$,~(SP) 


PC ,$DB2D 
(SP)+,2(SP) 
PC 

0,0 


;UNSIGNED OCTAL ASCIZ NUMBER 


7 CALL: 


1$: 


MOV 
JSR 


RE TURN 
THE PROGRAM REQUIRES THIS FORM OF ‘$SB20°, 


NUMBER , ~ (SP) 
PC, $SB20 


;SAVE THE BINARY NUMBER 
;SET THE POINTER 


[CALL THE DOUBLE LENGTH CONVERT 


PICKUP THE POINTER 
;RE TURN 


;PUT THE NUMBER ON THE STACK 


; CALL: 
sADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
NOT THE VERSION ON 


THE SYSMAC LIBRARY, REV C AND LATER 
soaye THE BINARY NUMBER 


2<SP),1$ 

#1%$,~(SP) 
PC, $DB20 
(SP) +, 2(SP) 


0, 0 


T THE POINTER 


TALL THE DOUBLE LENGTH CONVERT 


2 


7PICKUP THE POINTER 
RETURN 


Re ae tree me ee meme . 


THE 1ST ASCIZ CHAR IS ON THE STACK 
NOT THE VERSION ON 


A CECE A et Atti et a ee 


- 2RMUBU ee PERF EXER 
rTy INPUT ROUT 


9 


C33226 


033274 


033276 
033302 
033306 


033372 


fal a xe | 


000000 
000000 
000000 
033225 


005037 


117746 
042716 
021627 
001002 
005726 
000002 
021627 
001007 
104401 
004737 


022737 
001004 
104401 


033210 


000100 


145660 
177600 
000021 


000003 


034453 
033226 


034474 
000007 


000176 


000007 
001176 
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033212 


145664 


001154 


033210 


J 
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.SBTTL TTY INPUT ROUTINE 
SRR ARERR EERE EEE Enea ee 
SB 
$TKCNT: .WORD 0 NUMBER OF 1 ye IN QUEUE 
$TKQIN: .WORD 0 «INPUT POINTER 
$TKQOUT: .WORD 0 ~7OUTPUT POINTER 
$TKQSRT: .BLKB 7 iiTTY KEYBOARD QUEUE 
STKQEND=. 
EVEN 


:*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


SeCALL: 

3” JSR PC,$STKINT 

:* RE TURN 

STKINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
MOV #$TKQSRT,STKOIN : IMOVE THE STARTING ADDRESS OF THE 
MOV $TKQIN, STKQOUT sQUEVE INTO THE INPUT & OUTPUT POINTERS. 
MOV #STKSRV ,@ATKVEC :TINITIALIZE THE KEYBOARD VECTOR 
MOV M200, @MTKVEC+2 -;;"BR’’ LEVEL 4 
TST a$TKB ;CLEAR DONE FLAG 
MOV #100,a$TKS «TENABLE TTY KEYBOARD INTERRUPT 
RTS PC : sRETURN TO CALLER 


>*TK SERVICE ROUTINE 

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

7*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:*IT IN THE QUEUE. 

elf THE CHARACTER IS A “‘CONTROL-C*’ (*C) STKINT IS CALLED AND 


;*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL~C’* RESTART ADDRESS (CTRAP) 


$TKSRV: MOVB — a$TKB, -(SP) ::PICKUP THE CHARACTER 
BIC #°C177, (SP) *:STRIP THE JUNK 
CMP (SP), #$XON :31S 11 A RANDOM XON? 
BNE 308 CH IF NO 
TST (SP) + *:CLEAN RANDOM XON OFF STACK 
ii RT] : = RETURN 
CMP (SP) #3 :31S 1T A CONTROL C? 
BNE g 2 CH IF NO 
TYPE SSCNTLC >: TYPE A CONTROL-C (*0) 
JSR C, $TKINT >: INIT THE KEYBOARD 
TST (SP) + >= CLEAN UP STACK 
JMP C TRAP >: CONTROL C RESTART 
1$: CMP (SP) ,#7 -:1S IT A CONTROL G? 
BNE 2$ > ;BRANCH IF NO 
CMP ASWREG, SWR =:1S SOFT=SWR SELECTED? 
BEQ 6$ -:GO TO SWR CHANGE 
CMP #7, $TKCNT s1S THE QUEUE FULI ? 
BNE 3$ “BRANCH IF NO 
TYPE ,$BELL **RING THE TTY BELL 


LE Re ee ne mm me 


a 
ere er see stam 


= re a ee e+ ee ee eee 
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TTY INPUT ROUTINE SEQ 0153 

033376 005726 TST (SP) + ::CLEAN CHARACTER OFF OF STACK 

033400 000451 BR 5$ ssEXIT 

033402 021627 000023 zg: CMP (SP) #23 “71S IT A CONTROL=S? 

033406 001021 BNE 32$ : sBRANCH IF NO 

033410 005077 145544 CLR a$stKS -:DISABLE TTY KEYBOARD INTERRUPTS 

033414 005726 TST (SP) + i; CLEAN CHAR OFF STACK 

033416 105777 145536 318: TSTB = ASTKS ::WAIT FOR 

033422 100375 BPL 1$ +; LOOP INTIL ITs THERE 

033424 117746 145532 MOVB  a$TKB,=(SP) + GET THE CHARACTER 

033430 042716 177600 BIC wec1??. (SP) *:MAKE IT 7=BIT ASCII 

033434 022627 000021 CMP (SP)+,#21 i318 IT A CONTROL-0? 

033440 001366 BNE 31$ :BRANCH IF NO 

033442 012777 000100 145510 MOV #100, a$TKS * :REENABLE TTY KEYBOARD INTERRUPTS 

033450 000002 RTI + = RETURN 

033452 005237 033210 328: INC $TKCNT *:COUNT THIS CHARACTER 

033456 021627 000140 CMP (SP) ,#140 -:1S IT UPPER CASE? 

033462 002405 BLT 4$ + sBRANCH IF YES 

033464 021627 000175 CMP (SP) ,#175 *:1S IT A SPECIAL CHAR? 

033470 003002 BGT 4$ ;;BRANCH IF YES 

633472 042716 000040 BIC #40, (SP) MAKE IT UPPER CASE 

033476 112677 177510 4$: MOVB (SP) +, a$TKQIN 3 7 AND PUT IT IN QUEUE 

033502 005237 033212 INC $TKQIN “UPDATE THE POINTER 

033506 023727 033212 033225 CMP $TKQIN, #$STKQEND : 360 OFF THE END? 

033514 001003 BNE 5$ CH IF NO 

033516 012737 033216 033212 MOV #STKQSRT,STKQIN :ZRESET. THE POINTER 


033524 000002 5$: RT] 7sRET 


WETIUTI TI ITLL TTT liiiiiitit iii iii ii iis iii 
® SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

>*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

>*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 

3 *CALL he OPERATING IN TTY INTERRUPT MODE. 


033526 022737 000176 001154 $CKSWR: CMP ASWREG, SWR ::1S THE SOFT-SWR SELECTED 
033534 001124 "BNE 15$ > EXIT IF NOT 

033536 105777 145416 TSTB  =—s-_ @STKS -:15 A CHAR WAITING? 
033542 100121 BPL 15$ >:]F NOT, EXIT 

033544 117746 145412 MOVB oeTKB -(SP) YES 

033550 042716 177600 BIC wci7? (SP) Z3MAKE IT 7-BIT ASCII 
033554 021627 000007 CMP ) a? 


5215 IT A CONTROL-G? 
z1F NOT, PUT IT IN THE TTY QUEUE 
* DAND EXIT 


RO Ee SSE Ne Singtel ee 

® &CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
>*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


033560 001300 BNE 


033562 123727 001150 000001 6$: CMPB $AUTOB , #1 ;;ARE WE RUNNING IN AUTO-MODE? 
033570 001674 BEQ 2$ BRANCH IF YES 

033572 005726 TST (SP) + ;:CLEAR CONTROL-G OFF STACK 
033574 004737 033226 JSR PC, STKINT :¢FLUSH THE TTY INPUT QUEUE 
033600 005077 145554 CLR a$TKS :DISABLE TTY KEYBOARD INTERRUPTS 
033604 112737 000001 001151 MOVB 41, $INTAG ::SET INTERRUPT MODE INDICATOR 
033612 104401 034445 TYPE ,SCNTLG ;;ECHO THE CONTROL-G (“*G) 

033616 104401 034452 $GTSWR: TYPE , SMSWR 3: TYPE CURRENT CONTENTS 

033622 013746 000176 MOV SWREG, = (SP) ;2SAVE SWREG FOR TYPEOQUT 

033626 104402 TYPOC 3:GO TYPE=-OCTAL ASCIICALL DIGITS) 


OE TT TE TT TT as: oe mene 
ee nnn me ee ee a eee ee me me ee - ee te ae mene eee & ~ - 
ee ee eer ereenee - ~ - a 


cc 
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TTY INPUT ROUTINE 


033630 104401 034463 TYPE , SMNEW : PROMPT FOR NEW SWR 
33634 005046 19$: CLR =(SP) *:CLEAR COUNTER 
033636 005046 CLR -(S§P) ii THE NEW SWR 
033640 105777 145314 7$: STB. =—s @STKS * CHAR THERE? 
033644 100375 BPL 7$ ++ 1F NOT TRY AGAIN 
033646 117746 145310 MOVB  a$TKB,=-(SP) ::PICK UP CHAR 
033652 042716 177600 BIC #*C177, (SP) “sMAKE IT 7-BIT ASCII 
033656 021627 000003 CMP (S?) #3 ::1S 17 & CONTROL=C? 
033662 001015 BNE 9$ * +BRANCH IF NOT 
033664 104401 034433 TYPE SSCNTLC ::YES, ECHO CONTROL ~C (*C) 
033670 062706 000006 ADD #6,SP :CLEAN UP STA 
033674 123727 001151 000001 CMPB  ~—s- SINTAG, #1 : : REENABLE TTY KEYBOARD INTERRUPTS? 
033702 001003 BNE 8$ CH IF 
033704 012777 000100 145246 MOV #100, a$TKS + ALLOW TTY KEYBOARD INTERRUPTS 
033712 000137 034474 8$: JMP C TRAP ::CONTROL=C RESTAR 
633716 021627 000025 9$: CMP (SP) #25 :31$ IT A CONTROL ~U? 
033722 001005 BNE $ CH IF NOT 
033724 104401 034440 TYPE SSCNTLU 33 YES, ECHO CONTROL<-U (*U) 
033730 062706 000006 20$: ADD #6, SP GNORE PREVIOUS INPUT 
033734 000737 BR 19$ «LET'S TRY IT AGAIN 
033736 021627 000015 10$: CMP (SP) #15 z1S 1T A <CR>? 
033742 001022 BNE 16$ CH IF NO 
033744 005766 000004 TST 4(SP) SIYES, IS IT THE FIRST CHAR? 
033750 001403 BEQ 11$ i CH IF YES 
033752 016677 000002 145174 MOV 2(SP) ,a@SWR 7:SAVE NEW S 
033760 062706 000006 11$: ADD #6.SP >: CLEAR UP STACK 
033764 104401 001203 14$: TYPE »$CRLF >ECHO <CR> AND <LF> 
033770 123727 001151 000001 (MPR =s- $INTAG, #1 > =RE-ENABLE TTY KBD INTERRUPTS? 
033776 001003 BNE 15$ > ;BRANCH IF NOT 
034 012777 000100 145152 MOV #100, a$TKS :>RE-ENABLE TTY KBD INTERRUPTS 
034 15$: RTI > =RETURN 
034010 004737 035662 16$: JSR PC. STYPEC >:ECHO CHAR 
034014 021627 000060 CMP (SP) , #60 *=CHAR < 0? 
034020 002420 BLT * :BRANCH IF YES 
034022 021627 000067 CMP (SP) , #67 *>CHAR > 7? 
034026 003015 BGT $ : ;BRANCH IF YES 
034030 042726 000060 BIC #60, (SP)+ *>STRIP-OFF ASCI! 
034034 005766 000002 TST (SP) -:1S THIS THE FIRST CHAR 
034040 001403 BEQ 17$ ;sBRANCH IF YES 
034042 006316 ASL (SP) =:NO, SHIFT PRESENT 
034044 006316 ASL (SP) ;3 CHAR OVER TO MAKE 
034046 006316 ASL (SP) ROOM FOR NEW ONE. 
034050 005266 000002 17%: INC 2(SP) «KEEP COUNT OF CHAR 
034054 056616 177776 BIS =2(SP), (SP) ii SET IN NEW CHAR 
034060 BR 7$ ::GET THE NEXT ONE 
034062 104401 001202 18$: TYPE /$QUES TYPE ?<CR><LF> 
034066 000720 Rae BR 20$ «SIMULATE CONTROL -U 
; ‘ae 


STRATA AREE AA AEREAERERAEARERARRERAREARAARRRRARARERRARAR Ae AR ERS 


OO tee mee ee tee ee er te me we nee ee 


A ee te 
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TTY INPUT ROUTINE SEQ 0155 
eTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

** 

:* RDCHR :GET A CHARACTER FROM THE QUEUE 

:* RETURN HERE «CHARACTER 1S ON THE STACK 

A *:WITH PARITY BIT STRIPPED OFF 

034070 011646 $RDCHR: MOV (SP) ,=(SP) i :PUSH, DOWN THE PC AND 
034072 016666 000004 000002 MOV 4(SP5,2(SP) THE PS 
034100 005066 000004 CLR 4 (SP) i GET READY FOR A CHARACTER 
034104 005046 CLR -(SP) ;sPUT NEW PS ON STACK 
034106 012746 034114 MOV #64$,-(SP) ‘BUT NEW PC ON STACK 
034112 000002 RT] +:POP NEW PC AND PS 
034114 64$: 
034114 005737 033210 1$: TST STKCNT ::WAIT ON A CHARACTER 
034120 001775 BEQ 1$ 
034122 005337 033210 DEC STKCNT sDECREMENT THE COUNTER 
034126 117766 177062 000004 MOVB aSTKGOUT, 4(SP) :IGET ONE CHARACTER 
034134 005237 033214 iNC $TKQOUT “UPDATE THE POINTER 
034140 023727 033214 033225 CMP S$TKQOUT ,#$STKQEND ZBI IT GO OFF OF THE END? 
034146 001003 BNE 2 H IF NO 
034150 012737 033216 033214 MOV #STKQSRT, $TKQoUT’ “RESET THE POINTER 
034156 000002 2$: RTI 3 pRESET 


e 2 RARER AAAEAEARAEARRETEAKRERARAKARAAAEARARERAAEAAARERAEKREEAAEEEAES 


3*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


>*CALL: 
3* RDLIN :; INPUT A STRING FROM THE TTY 
7* RETURN HERE : :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
o* :; TERMINATOR WILL BE A BYTE OF ALL O°S 
034160 010346 SRDLIN: MOV R3,~(SP) : SAVE R3 
034162 005046 CLR -(SP) :: CLEAR THE RUBOUT KEY 
034164 012703 034414 1$: MOV ASTTYIN,RS : GET ADDRESS 
034170 022703 034433 23: CMP MSTTYINe15.,R5 3; BUFFER FULL? 
034174 101456 BLOS 4$ :;BR IF YES 
034176 194410 RDCHR = :GO READ ONE CHARACTER FROM THE TTY 
034200 112613 MOVB (SP)+,(R3) ::GET CHARACTER 
034202 122713 000177 10$: CMPB #177, (R3) e315 IT A RUBOUT 
034206 001022 BNE 5$ ;BR IF NO 
034210 005716 TST (SP) 31S THIS THE FIRST RUBOUT? 
034212 001007 BNE 6$ a IF NO 
034214 112737 000134 034412 MOVB #°\ 9S : TYPE A BACK SLASH 
034222 104401 034412 TYPE. ,9§ 
034226 012716 177777 MOV #-1, (SP) -:SET THE RUBOUT KEY 
034232 005303 6$: DEC R3 + = BACKUP BY ONE 
34234 020327 034414 CMP R3,ASTTYIN : STACK EMPTY? 
034240 103434 , BLO 4$ sBR IF YES 
034242 111337 034412 MOVB (R3),9% : 7 SETUP TO TYPEOUT THE DELETED CHAR. 
034246 104401 034412 TYPE 9S 3:GO TYPE 
034252 000746 BR 2$ ::GO READ ANOTHER CHAR. 
034254 005716 S$: TST (SP) »:RUBOUT KEY SET? 
034256 001406 BEQ 7$ :;BR IF NO 
034260 112737 000134 034412 MOVB #'\ 9% :: TYPE A BACK SLASH 
034266 104401 034412 TYPE 9 
034272 005016 CLR (SP) 7s CLEAR THE RUBOUT KEY 
034274 122713 000025 7$: CMPB #25,(R3) :I1S CHARACTER A CTRL U? 
034300 0010035 BNE 8$ *:BR IF NO 


CZ7RMUBO RMO5/3/2 PERF EXER 


TTY 


MH DOONAUILE WM 
RERRARAS 


34514 
0 


INPUT ROUTINE 


000002 


034440 
000022 
001203 
034414 
001202 
034412 
034412 
000015 


177777 
001204 


0CG0004 
034414 


000001 
0335210 


000015 
033212 
033212 
033216 
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000002 
000004 


001340 
176476 
033225 
0335212 


8$: 


4$: 
3$: 


9$: 


S$TTYIN: . 
SCNILC: . 


TYPE 


ASCIZ 


sSCNTLU 

#22, (R3) 
3$ 

(R3) 
/SCRLF 
STIVIN 
»$QUES 

1$ 

(R3) ,9$ 
#15, (R3)+ 


(SP) ,-(SP) 
4(SP) ,2(SP) 
#STTYIN,4(SP) 


Q 
0 


: 
4*C/<15><12> 
/*U/<15><12> 
/*G/<15><12> 
<15><12>/SWR = 
/ NEW = 


SEQ 0156 


3: TYPE A CONTROL ‘U"’ 
33GO START OVER 
a1 So gg Bh A ''*R''? 


“TYPE THE INPUT STRING 
$3 YP “eo wst ANOTHER CHACTER 


S:CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


e's FOR RETURN 
P IF NOT RETURN 
CLEAR RETURN (THE 15) 
ahi & A LINE FEED 
RUBOUT KEY FROM THE STACK 
tIREST TORE R R3 


: sADJUST THE STACK AND PUT ADDRESS OF THE 
oe FIRST ASCII CHARACTER ON IT 


; sRETURN 
;sSTORAGE FOR ASCII CHAR. TO TYPE 
RMINATOR 


‘PRESERVE 13,, BYTES FOR TTY INPUT 


3; CONTROL 
2; CONTROL 
:; CONTROL ‘’G’’ 


:THIS ROUTINE WILL PROCESS THE (*C) CHARACTER 


CTRAP: 


#1,CFLAG 

ig Oe 
STKOIN. #ETKQEND 
#STKOSRT, $TKQIN 


;SET THE *CONTROL C* FLAG 

;COUNT THIS CHARACTER 

:PUT ‘RETURN’ CHARACTER IN QUEUE 
;UPDATE THE POINTER 

:GO OFF THE END ? 


:BR IF YES 
RESET THE POINTER 
TURN 


‘ B 13 
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FRROR HANDLER ROUT INE SEQ 0157 


LS ee ee nee er ee eens ere rere 
| LL LE OL EL LO TE at ee teats — 


1 -SBTTL ERROR HANDLER ROUTINE 


MARRARARBRARBRASASAAASARARARARARRRRRRRRRARRRRRRRRR RR RRARRRASAASASRRRSSS SS S| 


SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


:*AND GO TO $SERRTYP ON ERROR 


:*THE SWITCH OPTIONS S on tanta BY THIS ROUTINE ARE: 


**SW15= HALT ON 
* eSW1 3=1 INHIBIT ERROR TYPEOUTS 
*SW10=1 BELL ON ERROR 
Sr 
_ ERROR N » :ERROR=EMT AND N=ERROR ITEM NUMBER 
034540 105037 035126 $ERROR: CLRB _—sXIBSAVE ii CLEAR THE ITEM BYTE SAVE LOCATION 
034544 104407 CKSWR T FOR CHANGE IN SOFT-SWR 
034546 010337 001322 MOV R3,ATIN “SAVE THE ATTENTION REGISTER CONTENTS 
034552 010137 001220 MOV R1.DRIVE “DRIVE NUMBER 
034556 032777 020000 144370 BIT #SW13,aSWR “INHIBIT PRINTOUTS ? 
034564 001 BNE +12 “BR IF YES 
634566 104401 001203 TYPE  ,{$CRLF " CR=LF 
034572 104401 001203 TYPE  |$CRLF * CRLF 
034576 004737 024750 JSR PC, $TIME “TYPE THE TIME 
034602 105237 001117 7$: INCB RFLG :3SET THE ERROR FLAG 
034606 001775 BEOQ 7$ “DON’T LET THE FLAG GO TO ZERO 
034610 013777 003116 144340 MOV $TSTNM, DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
034616 032777 002000 144330 BIT #B1T10.aSWR : BELL ON ERROR? 
034624 001402 REQ 1$ :: SKIP 
034626 104401 001176 TYPE  ,$BELL «RING BELL 
034632 005237 001126 1$: INC SERTTL *:COUNT THE NUMBER OF ERRORS 
034636 011637 001132 MOV (SP) , SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
034642 162737 001132 SUB #2, SERRPC 
034650 117737 144256 001130 MO @SERRPC,$ITEMB ;:;:STRIP AND SAVE THE ERROR ITEM CODE 
034656 032777 001 144270 BIT #B1T09.a :3SEE IF LOOP ON ERROR IS SET 
034664 001060 BNE 1 “BRANCH AROUND ROUTINE IF SO 
034666 122737 000177 001130 (MPR =so#'177, SITEMB ; SEE IF THIS IS THE POWER FAIL CALL 
034674 001454 BEQ 1004$ *BRANCH AROUND ROUTINE IF IT IS 
034676 105737 035126 TSIB _—«IBSAVE 7 7SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
034702 001047 BNE 1603$ : BRANCH IF SO 
034704 022737 177777 035124 CMP #-1, CPSAVE 7 3SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
034712 001445 BEQ 1004$ CH IF SO 
034714 013746 000004 MOV ERRVEC,=-(SP) 3 SAVE CONTENTS OF ERROR VECTOR 
034720 012737 034736 000004 MOV #I000$.ERRVEC ::SETUP "TRAP' RETURN ADDRESS 
034726 013737 177766 035124 MOV 177766, "CPSAVE =:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
034736 012737 177777 035124 1006$: MOV #-1, CPSAVE =:SET CPU ERROR REGISTER TIMEQUT INDICATOR 
034744 012716 034752 MOV #1001$, (SP) *: SETUP RETURN ADDRESS 
034750 000002 RTI 
034752 012637 000004 -1001$: MOV (SP)+,ERRVEC | ;:RESTORE CONTENTS OF ERROR VECTOR 
034756 022737 177777 035124 1002$: CMP #-1, CPSAVE ::SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
024764 001420 BEQ 1004 ::BR ANCH IF SO 
034766 032737 000001 035124 BIT #B1T00,CPSAVE — IF POWER MONITOR BiT IS SET IN CPU ERR REG 
034774 001414 BEQ 1004$ : :BRANCH IF OK 
034776 042737 000001 177766 BiC #B1T00, 177766 $3 CLEAR THE BIT FOUND SET 
035004 113737 901130 035126 MOVB $I TEMB.IPSAVE MAKE IBSAVE NUN-ZERO FOR DUAL ERROR CALL 
035072 112737 000177 001130 MOVB #177,$1TEMB “SET S$ITEMB TO SPECIAL POWER FAIL POINTER 
635020 000402 BR 1004$ *=BRANCH OVER IBSAVE CLEARING 


LS PO ET FR A NN em - 


ree a oe ees ee + 


A ae i in eine 


035022 


035126 


105037 
032777 


122737 
001007 
113737 
004737 


000 
006777 


105737 
001005 
005777 
100002 
000000 
104407 


105737 
001250 
CO0002 


000000 
000000 
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035126 
020000 


035130 
001203 


000001 


001130 
036474 


035126 
144046 


035126 
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144120 


001226 
035070 


1003$: 
1004$: 


20$: 
218: 


22S: 
2$: 


3$: 


CPSAVE : 
IBSAVE : 


IBSAVE 


#B17T13,@SWR 
0$ 
PC, SERRTYP 
RLF 


lead . SENV 


$ITEMB,21$ 
O° SATY4 


22$ 
IBSAVE 
3$ 
@SWR 
3$ 


IBSAVE 
7$ 


;;CLEAR IBSAVE 50 2ND TIME THROUGH EXITS 


;zSKIP TYPEOUT IF SET 
;3SKIP TYPEOUTS 
3:GO TO USER ERROR ROUTINE 


; RUNNING IN APT MODE 
+iNO, SKIP APT ERROR REPORT 

;SET ITEM NUMBER AS ERROR NUMBER 
: REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 

s3See ar IBSAVE IS LOADED 

; ;BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 
:HALT ON ERROR 

17 SKIP IF CONTINUE 


sHALT ON ERROR! 
::TEST FOR CHANGE IN SOFT~SwR 


:zSEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
: eran BACK TO CALL ORIGINAL ERROR 


= :LOCATION TO SAVE CPU ERROR REG CONTENTS 
“LOCATION TO SAVE ITEM BYTE 


CZ7RMUBO RMOS/3/2 PERF EXER 
FRROR MESSAGE TYPEQUT ROUTINE 


035144 
035146 
035152 


035432 


104401 
010046 


035316 
120 


124 
035446 


001203 
001130 
001132 


000177 


001212 
035506 


003472 
035224 


001203 
035242 


001205 


001203 


035302 
040 
035400 
117 
105 
001132 


LLL TE | ER 
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035446 


000 


035432 
127 


123 
035124 


D 


13 
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.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


MOARBREBRARRASRAARASRRRRR RAR RRR RE RR RRRRRRRRRRRRR RR ARRAS AR SRR S SSS ES 


S STHIS ROUTINE USES THE “"ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. 't 


11 THEN OBTAINS, 


FROM THE 


:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1$: 


1000$: 


1001$: 


2$: 
3$: 


4$: 
5$: 
6$: 


7$: 


8$: 


PFECH: 
PFECH): 


PFECH2: 
PFECHS: 


BR 
ASCIZ 


-SCRLF 
RO,-(SP) 


R 
a4$1TEMB,RO 
1$ 


SERRPC ,-(SP) 


6$ 
Le a 


000$ 
STESTN,PFTSTN 
+ 5 alle 


R 
#$ERRTB.RO 
(RO) + 28 


0 

-SCRLF 
(RO) +,4$ 
5$ 


-SCRiF 

(RO) ,RO 

7$ 

(SP) + ,RO 
-SCRLF 

PC 
@(ROQ)+,=(SP) 
(RO) 

8$ 


eg 


77‘ ‘CARRIAGE RETURN’’ @ ‘LINE FEED’’ 
; SAVE R 

szPICKUP THE ITEM INDEX 

zz If ITEM NUMBER i$ ZERO, JUST 

a. THE ERROR 


hy ADDRESS 
— ASCIIC(ALL DIGITS) 


RROR TABLE’ ($ERRTB), 


SEG 0159 


:GET OU 
: SEE i — CALL IS SPECIAL POWER FAIL CALL 


7 3GET TEST NUMBER 


sMOVE POWER FAIL ERROR CALL TABLE [10 RO 
ERROR 


BRANCH TO CALL 
¢ sADJUST THE INDEX SO THAT IT WILL 
ae WORK FOR THE ERROR TABLE 


:3FORM TABLE POINTER 


:¢PICKUP "ERROR MESSAGE*’ _— 


MES 
;"ERROR MESSAGE** POINTER GOES HERE 
CARR IAGE RETURN'’ & “LINE FEED" 
3zPICKUP ‘DATA ° 2 gall POINTER 


3; TYPE THE “DATA HEADER’’ 

73, DATA HEADER'* POINTER GOES HERE 
:*“CARRIAGE RETURN'* & “LINE FEED’ 

::PICKUP ‘DATA TABLE’ POINTER 

3:GO TYPE THE DATA 


: :RESTORE RO 

:; "CARRIAGE RETURN’ & “INE FEED 

7 7RETURN 

58 a(RO)+ FOR TYPEOUT 
TYPE=-OCTAL ASCIICALL DIGITS) 

:i1S THERE ANOTHER NUMBER? 

;BR IF NO 
>: TYPE TWO(2) SPACES 


;;LO00P 
>: TWO(2) SPACES 


EVEN 
PFECH1,PFECH2,PFECH3.PFECH4 ;;WORDS DEFINING TABLES BEL Ow 


ASCIZ 
ASCIZ 


EVEN 
. WORD 


?POWER MONITOR BIT IN CPU 


ERROR REGISTER FOUND SET? 


2TESTNO ERR PC CPUERREG? 
PF TSTN, SERRPC , CPSAVE ,0 


——— ae ee ee te 


a 


merece eee + wee eee 
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FRROR MESSAGE TYPEQUT ROUTINE 


RR ee a a ee 
Se ee eee eee Seecoteeesmce 


035442 000 
035446 (00000 
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MACRO V04.00 
QOQ PFECHS: .BYTE 0,0,0,0 
PFTSTN: .WORD 0 si CONTAINS TEST NUMBER FOR PF BIT ERROR 


ES SE OE EE Ee ee ee em mee me mm me we ———— See _ - 


SEQ 0160 


——ae 


LI LOL LLL LLL ALL 


ee ee ne 


F 13 
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YPE ROUTINE 
.SBITL TYPE ROUTINE 
TORO RBBB BBBBAABBABBBRRBERARARRAEBSRARSRARARERERRRRER RRR RRR SRRSR SEER SASS S SC 
« SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 evie - 
+» THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
; *NOTE : $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
saNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
* *NOTE 3: $F ILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
>= CALL 
:*1) USING A TRAP INSTRUCTION 
$8 TYPE »MESADR :zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
= TYPE 
se ME SADR 
035450 105737 001173 $TYPE TSTB STPFLG e1S THERE A TERMINAL? 
035454 100002 BPL 1$ ;BR IF YES 
635456 000000 HAL T «CHALT HERE IF NO TERMINAL 
035460 000430 otal 3$ + sLEAVE 
035462 010046 1$: MOV RO,-(SP) ; SAVE RO 
035464 017600 000002 MOV a2(SP),RO GET ADDRESS OF ASCIZ STRING 
035470 122737 000001 001226 (MPR MAPTENV, SENV : ING IN APT MODE 
035476 (001011 BNE 62$ ::NO,GO CHECK FOR APT CONSOLE 
035500 132737 000100 0017227 BITB #APTSPOOL , SENVM >: SPOOL ea TO APT 
635506 001405 BEQ 62$ :;NO,GO CHECK FOR CONSOLE 
035510 010037 035520 MOV RO,61$ 7; SETUP MESSAGE ADDRESS FOR APT 
035514 004737 036464 JSR PC,SATY3 ::;SPCOL MESSAGE TO APT 
035520 61$: P ee : sMESSAGE ESS 
035522 132737 000040 901227 62$: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
035530 001003 BNE 6 si ah on TYPE OUT 
035532 112046 2$: MOVB (RO) +,=(SP) PUSH CHARACTER TO BE TYPED ONTO STACK 
035534 001005 BNE 4$ ‘oR IF IT ISN'T THE TERMINATOR 
035536 005726 TST (SP) + 5 TERMINATOR POP IT OFF THE STACK 
035540 012600 60$: MOV (SP)+,RO : :RESTORE RO 
035542 062716 900002 3$: ADD #2, (SP) > ADJUST RETURN PC 
035546 RT] : sRETURN 
035550 122716 900011 4$: CMPB WHT, (SP) > ;BRANCH IF <HT> 
035554 001430 BEQ 
035556 122716 000200 CMPB WCRLF , (SP) : ;BRANCH IF NOT <CRLF> 
035562 1 BNE 5$ 
5564 005726 TST (SP) + :POP <CR><LF> EQUIV 
035566 104401 TYPE “ TYPE A CR AND LF 
035570 001203 SCRLF 
035572 105037 036000 CLRB SCHARCNT >; CLEAR CHARACTER COUNT 
035576 755 BR 2$ >:GET NEXT CHARACTER 
5600 737 035662 5$: JSR PC STYPEC tt TYPE THIS CHARACTER 
035606 123726 901172 6%: CMPB SFILLC, (SP) sIS IT TIME FOR Cette CHARS. ? 
035670 001350 BNE 2$ < IF NO GO GET NEXT CHAR. 
035612 013746 001170 MOV $NULL , = (SP) IGET # OF FILLER CHARS. NEEDED 
: AND THE NULL CHAR, 
035616 105366 000001 7$: DECB 1(SP) -:DOES A NULL NEED TO BE TYPED? 
035622 002770 BLT 6$ : BR iF wer POP THE NULL OFF OF STACK 
035624 737 035662 | JSR PC ,$TYPEC -:GO TYPE A NULL 
035630 105337 036000 DECB $CHARCNT >:DO NOT COUNT AS A A COUNT 
035634 000770 R /$ :: OP 


SEQ 016) 


IES TT a ei pen we we oe 


- prose 
cata KL 
"ePE ROUT 


RMOS/ 4/2 PERF EXER 


INE 


032656 


112716 


105777 
100022 
017746 
042716 
122716 
001072 


105777 


005726 
105777 


000040 
035662 
900007 


143272 


1435266 


145246 
143242 


177600 . 


000021 


143224 


000002 
000015 


036000 
000012 
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056000 


000002 
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:HORIZONTAL TAB PROCESSOR 


R$: 
$: 


STYPEC: 


101$: 


102$: 
10$: 


1$: 


I 
SCHARCNT: . WORD 


NCB 


$TYPEX. RTS 


#* (SP) 

PC STYPEC 
#7, $CHARCNT 
9$ 


(SP) + 
2$ 


- 


Q@$TKS 


10$ 

as tke -(SP) 
#177600, (SP) 
#SXOFF (SP) 
102% 


asTKS 

101$ 

a$TKB, (SP) 
arr eb0. (SP) 
#$XON, (SP) 
101$ 


(SP) + 


a$TPs 


10$ 
2(SP) ,a$TPB 
agree! 


ALF, 2(SP) 
STYPEX 
(PC) 

0 

PC 


Ties ae TAB WITH SPACE 
si TYPE A SPACE 
: BR “i af NOT AT 


«+ TAB S 
“~gPOP SPACE OFF STACK 


3iGET NEXT CHARACTER 
+3 CHAR IN KYBD BUFFER? 
IF NOT 


:sGET CHAR 

STRIP tee an BITS 
«WAS CHAR XOFF 
3;BR IF NOT 


;i;WAIT FOR CHAR 


3;GET CHAR 

ssStRir. iy 

+ 2WAS IT XON? 
IF NOT 


zaF IX STACK 
WAIT UNTIL PRINTER IS READY 


ee: CHAR TC BE TYPED INTO DATA REG. 
iI a gga Bh on A CARRIAGE RETURN? 


if NO 
:ZYES==CLEAR CHARACTER COUNT 


sEXIT 

531s CHARACTER A LINE FEED? 
;BRANCH IF YES 

>: COUNT THE CHARACTER 

32 CHARACTER COUNT STORAGE 


-O O14 


056116 


roa 
—> —2 
Mmm 
MmO 


ODOOSCOCODZO 
SESRRREES 
RNYKXR 


¢ PERF EXER 
[) AND TYPE 


AS I 


017646 


000000 
000001 
036231 
000002 


000001 


000006 
000005 


0362351 
00000€ 
036250 


036227 
000012 


036230 
177770 
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036227 


036227 
036231 
056226 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


. WEETTTTITILILLILLL LILLE LILLIE 


=*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT 
**OCTAL (ASCII) NUMBER AND TYPE IT 


> *$TYPOS===ENTFR HERE 


NUM , = (SP) 


N 
M 


TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TvPE 
‘+ :NUMBER TO BE TYPED 


;;CALL FOR oa 
:iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
e : Mz) OR 0 
371=TYPE LEADING ZEROS 
3;0=SUPPRESS LEADING ZEROS 


:*$TYPON===-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAS! 
*$TYPOS OR $TYPCC 


s*CALL: 


NUM, = (SP) 


7 NUMBER TO BE TYPED 
32CALL FOR TYPEOUT 


“s$TYPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


* CALL: 


-* 
© 


*® 
© 


$TYPOS: 


$TYPOC: 
$1 YPON: 


1$: 
2S: 


3$: 


4$: 


NUM, = (SP) 


@(SP) ,-(SP) 


1(SP) ,SOF ILL 
(SP) +, SOMODE +1 


SOMODE +1 R4 


9%. R4 


R4, SOMODE 
SOF ILL ,R4S 
Lie at 


R3 
SOMODE 


; ;NUMBER TO BE TYPED 
3:CALL FOR TYPEOUT 


33PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 

7 NUMBER OF DIGITS TO TYPE 
;ZADJUST RETURN ADDRESS 


;zSET THE ZERO FILL SWITCH 
:;SET FOR SIX(6) DIGITS 
;3SET ™ ITERATION COUNT 


-= SAVE RS 
;;GET THE NUMBER OF DIGITS TO TYPE 


>: SUBTRACT iT FOR MAX. ALLOWED 
-:SAVE IT FOR USE 

::GET THE ZERO FILL SWITCH 
7;PICKUP THE INPUT NUMBER 
CLEAR THE OUTPUT WORD 

ie nes MSB INTO *'C"' 


O MSB 
72FORM THIS DIGIT 


;:GET LSB OF aaty: DIG 
23 TYPE THIS DIGIT 

;BR_ IF NO 
:3GET i}: OF JUNK 
;sTEST FOR 0 
ee es 0? 


BR If 
::DON'T SUPPRESS ANYMORE 9°S 


Se ee ere oe ree ee eee ee ee rere eee I Ct et tte ttt tat a ea 
—» ~~uruusnseeme 


~TRMUBO RMOS/*7/¢ PERF EXER 
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000069 


036150 052705 
036154 052703 
036160 110337 


—— ee erie em mee 8 eee. ~ eee 
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PE 


8$: BYTE 


0 
‘ 0 
SOCNT: .BYTE 0 
SOFILL: .BYTE Q 
SOMODE: .WORD 0 


Se TS OE. SS Re a er Oem ee! 


BIS #°O,R5 
G00040 S$: BIS a’ OR 
036224 MOVB  R3,8$ 
0362246 TYPE 2 
036226 7$: DE CR SOCNT 

BGT 2$ 

BLT 46$ 

INC RG 

2$ 
6$: MOV (SP) ¢,R5 

MOV (SP) +,R4 

MOV (SP)+,R3 
000002 9000004 MOV 2(SP) ,4(SP) 

BT] (SP), (SP) 

R 


Ol Bm 


ssMAKE THIS DIGIT ASCII 
+ MAKE ASCI1 IF _ ALREADY 


3:60 TYPE THIS DIGI? 
3; COUNT BY 1 
3iBR IF MORE TO DO 


7¢BR_IF DONE 
3; INSURE LAST DIGIT ISN*T A 6. ANK 


+460 s — DIGIT 


7 REST R3 
; SET THE STACK FOR RETURNING 


7 RETURN 
:: STORAGE FOR ASCII DIGIT 
7, TERMINATOR FOR TYPE ROUTINE 
+s OCTAL DIGIT wee 
sZERO FILL SwWITC 
: «NUMBER OF DIGITS TO TYPE 


ey eee 6 tetee 
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PERF EX 
O DECIMAL AND TYPE ROUTINE 
_SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TOP RRRORBRRBRBORBBRAABAABBRABBAREBREASRAABSRARERRASRRRE RRR RR RRR SRARARRRA ERR SESE SE GC 
“*THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 5-DIGIT 
“*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
‘ xNUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
**BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; sREPLACED WITH SPACES. 
3 *CALL: 
:* MOV NUM, =(SP) ::PUT THE BINARY NUMBER ON THE STACK 
“* TYPDS *:G0 TO THE ROUTINE 
$TYPDS: , 
010046 MOV RO,-(SP) ::PUSH RO ON STACK 
010146 MOV R1.=(SP) + PUSH R1 ON STACK 
010246 MOV R2,-(SP) : PUSH R2 ON STACK 
010346 MOV R3,-(SP) * =PUSH R3 ON STACK 
010546 MOV R5,=(SP) ;sPUSH_R5S ON STACK 
012746 020200 MOV #20200, -(SP) “SET BLANK SWITCH AND SIGN 
016605 000020 MOV 20(SP) ,R5 GET THE INPUT NUMBER 
100004 BPL 1$ 33 F INPUT IS POS. 
005405 NEG R5 **MAKE THE BINARY NUMBER POS. 
112766 000055 000001 MOVB  #'=,1(SP) ::MAKE THE ASCII NUMBER NEG. 
005000 1$: CLR RO >: ZERO THE CONSTANTS INDEX 
012703 036446 MOV #$DBLK ,R3 =:SETUP THE OUTPUT POINTER 
112723 000040 MOVB #° ,(R%)+ :3SET THE FIRST CHARACTER TO & BLANK 
005002 : 2$: CLR R2 “CLEAR THE BCD NUMBER 
016001 036436 MOV $DTBL (RO) RI *:GET THE CONSTANT 
160105 3g: SUB R1,R5 : FORM THIS BCD DIGIT 
002402 BLT 4$ ::BR IF DONE 
005202 INC R2 *: INCREASE THE BCD DIGIT BY 1 
000774 BR 3$ 
060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
005702 TST R2 i: CHECK IF BCD DIGIT=0 
001002 BNE 5$ FALL THROUGH IF 0 
105716 TSTB ~—s._-« (SP?) i: STILL DOING LEADING 0°S? 
100407 BM] 7$ *:BR IF YES 
105316 S$: ASLB —_- (SP) : MSD? 
103003 BCC 6$ :;BR IF NO 
116663 000001 177777 MOVB == 7(SP),=-1(R3) :YES~-SET THE SIGN 
052702 000060 6$: BIS #°0,R2 MAKE THE BCD DIGIT ASCII 
052702 000040 7$: BIS #" ~RO : MAKE If A SPACE IF NOT ALREADY A DIGIT 
110223 MOVB _—R2, (R3)+ *PUT THIS CHARACTER IN THE OUTPUT BUFFER 
005720 TST (RO) + =: JUST INCREMENT ING 
020027 000010 CMP RC,410 “CHECK THE TABLE INDEX 
002746 BLT 2$ "60 DO THE NEXT DIGIT 
BGT *:GO TO EXIT 
010502 MOV R5.R2 + 3GET THE a 
000764 BR x3 -GO CHANGE TO ASCI! 
105726 8$: 1STB (SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
100003 BPL 9$ IF NO 
116663 177777 177776 MOVB <1 (SP), =2(R3) “YES==SET THE SIGN FOR TYPING 
105013 9S: CLRB (R3) SET THE TERMINATOR 
012605 MOV (SP)+,R5 *:POP STACK INTO R5 
012603 MOV (SP) +.R3 *:POP STACK INTO R3 
012602 MOV (SP) +>R2 *:POP STACK INTO R2 


012601 MOV (SP)+,R1 ::POP STACK INTO R1 


C27RMUBO RMOS/3/2 PERF EXER 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


036444 
036446 


36446 
600002 000004 


$DTBL: 


SDBLK: 


MOV (SP)+,RO 
TYPE $DBLY 
MOV 5(SP),4(SP) 


MOV (SP)+, (SP) 
RTI 

10000. 

1000. 

10. 
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37POP STACK INTO RO 
iiNOW TYPE THE NUMBER 
i iADJUST THE STACK 


;;RETURN TO USER 


5EG Gi66 
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APT COMMUNICATIONS ROUTINE SEQ O16¢ 
~SBTTL APT COMMUNICATIONS ROUTINE 


TARR RBREREBRBBRRABSBLSASSASARSRARRRRRE RRR RRR RRR RRR RRR RRRRRR RRR RRA SSR SSS SE SS 


036456 112737 000001 036722 $ATY1: MOVB  4#1,$FFLG ::TO REPORT FATAL ERROR 
036464 112737 000001 036720 $ATY3: MOVB #. SMFLG *:T0 TYPE A MESSAGE 
036472 000403 BR $ATYC 
936474 112737 000001 036722 SATY4: MOVB  #1,$FFLG ::TO ONLY REPORT FATAL ERROR 
036502 010046 MOV RO,-(SP) +:PUSH RO ON STACK 
2504 010146 MOV R1,-(SP) *:PUSH R1 ON STACK 
506 105737 036720 TSTB ~=—ss SMFLLG :;SHOULD TYPE A MESSAGE? 

036512 001450 BEQ 5$ NOT: BR 
036514 122737 000001 001226 CMPB  —s- HAPTENV, SENV ; OPERATING UNDER APT? 
036522 001031 BNE 7 F NOT: BR 
036524 132737 000100 001227 BITB  #APTSPOOL,$ENVM i SHOULD SPOOL MESSAGES? 
036532 001425 BEQ F NOT: 
036534 017600 000004 MOV a4 (SP),RO + :GET MESSAGE ADDR. 
036540 062766 000002 000004 ADD #2,4(SP) > ;BUMP RETURN ADDR. 
036546 005737 001206 1$: ST $MSGTYPE 23 SKE IF DONE W/ LAST XMISSION? 
636552 007375 BNE 1$ 7IF NOT: WAIT 
036554 010037 001222 MOV RO, $MSGAD *=PUT ADDR IN MAILBOX 

105720 2$: TSTB  ~— (RO) + : FIND END OF MESSAGE 
036562 001376 BNE 33 

163700 001222 SUB $MSGAD ,RO ::SUB START OF MESSAGE 
036570 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
036572 010037 001224 MOV RO, $MSGLGT :*PUT LENGTH IN MAILBOX 
036576 012737 000004 021206 — MOV #4. SMSGTYPE *:TELL APT TO TAKE MSG. 
036604 000413 | BR 
036606 017637 000004 036632 3$: MOV a4 (SP) .4$ ::PUT MSG ADDR IN JSR LINKAGE 
036614 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
036622 013746 177776 MOV 177776,=(SP) : PUSH 199776 ON STACK 
036626 004737 035450 JSR PC $TYPE >=CALL TYPE MACRO 
036632 000000 4$: .WORD 0 
036634 5$: 
036634 105737 036722 10$: TSTB —s SFFLG ::SHOULD REPORT FATAL ERROR? 
036640 001416 BEQ 12$ -:IF NOT: BR 
036642 005737 001226 TST SENV ; 3RUNNING UNDER APT? 
036646 001413 BEQ 12$ NOT: BR 
036650 005737 001206 11$: TST SMSGTYPE ; 7F INISHED LAST MESSAGE? 
036654 001375 BNE 11$ NOT: WAIT 
036656 017637 000004 001210 MOV a4(SP),$FATAL  ::GET ERROR # 
036664 062766 000002 000004 ADD #2.4(SP) *BUMP RETURN ADDR. 
036672 005237 001206 INC $MSGT YPE rr TELL APT TO TAKE ERROR 
036676 105037 036722 12$: CLRB = SFFLG *:CLEAR FATAL FLAG 
036702 105037 036721 CLRB = SLFLG *:CLEAR LOG FLAG 
036706 105037 036720 CLRB $MFLG ;7CLEAR MESSAGE FLAG 
036712 012601 MOV (SP)+,R1 =POP STACK INTO R1 
036714 012600 MOV (SP) +.RO : POP STACK INTO RO 
036716 000207 RTS PC RETURN 
036720 000 $MFLG: .BYTE 0 ; :MESSG. FLAG 
036721 000 $LFLG: .BYTE O >*LOG FLAG 
036722 000 SFFLG: -BYTE 0 > FATAL FLAG 

000200 APTSIZE = 200 

000001 APTENV. = 001 

000100 APTSPOOL= 100 

000040 APTCSUP = 040 


LO em ke 
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.SBTTL RANDOM NUMBER GENERATOR ROUTINE 


etre eerste een etter scene 


VEARRBBRBREBSGAASRASAASLSASAASRRASAEARSERR RRR ERRRRRRRRRRR RR RRR RRRRRRSSSR RSS SSS | 


:*THIS ROUTINE IS A DOUBLE ee PSEUDO RANDOM NUMBER GENERATOR 
:*WITH A RANGE OF 0 TO 2(+33)=1 


**CALL: 
3* JSR PC ,$RAND :;CALL THE ROUTINE 
ss RE TURN 7ZRETURN HERE THE RANDOM 
:* 7 ;NUMBER WILL BE IN 
;* 32 SHINUM,S$LONUM 
036724 $SRAND : 
036724 010046 MOV RO,-(SP) :7;PUSH RO ON STACK 
036726 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 
036730 010246 _ MOV R2,~(SP) 37PUSH R2 ON STACK 
036732 013700 037024 MOV $LONUM,RO 3:SET RO WITH LOw 
036736 013701 037022 MOV — $SHINUM,R1 3zSET R1 WITH HIGH 
036742 012702 177771 MOV M=-7 ,R2 sz SET SHIFT yl 
036746 006300 1$: ASL RO ae RO LEFT AND 
636750 006101 ROL R1 ROTATE CARRY INTO R171 AND 
036752 005202 INC R2 +: CHECK FOR DONE 
036754 001374 BNE 1$ :; CONTINUE SHIFT LOOP 
036756 3700 037024 ADD $LONUM , RO ADD NUMBER (0 MAKE X 129 
036762 005501 ADC 1 3 ;PROPOGAT CARFY 
036764 063701 037022 ADD SHINUM,R1 :;ADD NUMBER 'u MAKE X 129 
036770 27 001057 ADD #1057,R0 ;;ADD LOW CONSTANT 
036774 005501 ADC R1 ss TE CARRY 
036776 062701 047401 ADD #47401,R1 er HIGH CONSTANT 
037002 010037 037024 MOV RO,$LONUM AVE RO 
37006 010137 037022 MOV R1,$HINUM Se av VE R1 
037012 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
037014 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
037016 012600 MOV ce RO 7zPOP STACK INTO RO 
037020 000207 RTS os URN 
037022 176543 SHINUM: WORD 176563 
037024 123456 $LONUM: WORD 123456 


re rr re re ens ts Fe ee wee ee ete ee mw 


_ SAVE AND RESTORE RO-R5 ROUTINES 


EEE neem 


CO LL LLL LT TT 
a ER ee 
' 
’ 
' 
' 


CZ7RMUBO RMOS/3/2 PERF EXER 


037026 


037120 


000002 


000022 
000022 


000022 
000022 


000022 
0 2 
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N 1 
E 4 


3 
9 


.SBTTL SAVE AND RESTORE RO=R5 ROUTINES 


WE RRBRBEBEBRESGSRASSSSARSSRRRRRRRRRRRRRRRRRRERRRRRRRRRAR RRR RRR SRRSSS SSS 


«SAVE RO=R5 
:*CALL : 


SAVREG 
: UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


Se TOP===(+16) 
se +2===(+18) 
p* +4-—--R5 
5* +6=-=-R4 
3* +8-=-R3 
3*+10-=-R2 
p*+12-=-R1 

3*+14=--R0 


$SAVREG: 


Sie heme RO-R5 


*CALL: 
s® RESREG 
$SRESREG: 


RO,~(SP) 


P) 
S3(SP). -(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22¢(SP) 
(SP)+,22(SP) 
(SP)+,R 

(SP)+, Ra 
(SP) +, °R3 
(SP)+, “R2 
(SP)+_R1 
(SP)+,RO 


;;RESTORE PC OF CALL 
; ¢RESTORE A, OF CALL 


; 3RESTORE PS OF MAIN FLOW 


4) 
~ 
S 
mn 
oO 
=) 
7 
> 
dame 
2 
n 
. 
Ss 


OP STACK INTO R5 
OP STACK INTO R4 
POP STACK INTO R3 


STACK INTO R2 


POP STACK INTO Ri 


STACK INTO RO 


SEQ VIFY 
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| DOUBLE LENGTH BINARY TO DECIMAL Ascii CONVERT ROUT] SEQ 0170 


037122 


03 
037270 


000002 
037302 
000002 


0C0012 
037232 
037234 


000060 


037220 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


—MARBAAABBRBABRASZASBALSASASARRR RARE RRR RA RRR RRRRR RR RAR RRR RR RR RRR SARS AAR SE S| 


SSTHIS ROUTINE WILL CONVERT A 32=BIT BINARY NUMBER TO AN UNSIGNED 
>*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


: sPOSITIVE. 
.* MOV #PNTR,=(SP) szPOINTER TO LOW WORD OF BINARY NUMBER 
:* JSR PC, a#$DB2D 
:* RE TURN zz THE FIRST ADDRESS OF ASCIZ 
3731S ON THE STACK 
MOV 2(SP) ,R2 :PICKUP THE DATA Poeren 
MOV #SDECVL,RO 13GB ADDRESS OF ‘‘SDECVL’’ STRING 
MOV RO,2(SP) 7zPUT ADDRESS OF ASCIZ SeRING ON STACK 
MOV (R2)+,R1 :;PICKUP THE BINARY NUMBER 


MOV #10., ;SET UP TO DO 10 CONVERSIONS 

MOV ASTNPWR RS : TADDRESS OF TEN POWER 

. MOV ASTNPWR+2,R5 
1$: CLR R3 3;CLEAR PARTIAL 
e$: SUB (RS) ,R1 7; SUBTRACT TEN POWER 

SBC R 

SUB (RS) ,R2 

BLT 3$ ;;BR IF TEN POWER TO LARGF 

INC R3 ; ADD 1 TO PARTIAL 

BR 2$ LOOP 
3$: ADD (R4)+,Ri : TRESTORE SUBTRACTED VALUE 


R 
ADD (R4)+,R2 


CMP (m5) (R5)¢ : sMOVE TO NEXT TEN POWER 


BIS °O.R : CHANGE PARTIAL TO ASCII 
MOVB = RS, (RO) + : = SAVE IT 
DEC (PC)+ ; DONE? 
4$: -WORD 0 
BNE 1$ ay 
RB . (RO)+ :; TERMINATOR 
RESREG* : :sRESTORE REGISTERS 
Ss PC : RETURN 
STNPWR: 145000 :31.0E09 
5632 
we 721.0E08 
Ligeee :2:1.0E07 
041100 771.0E06 
103240 :2:1.0E05 
23420 321.0E04 
1750 2231.0E03 
144 :21.Q0E02 
0 
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| 

! 037272 000012 12 337.0601 

| 037274 000006 0 

037276 000001 1 3:1.0E00 

| 037300 000000 0 

| 037302 $DECViL: .BLKB 12. S RESERVE STORAGE FOR ASCIZ STRING 


* 
nen SL  , <a a L$ LL LE A SM me ee ee - — ee ee me ee ae 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE SEQ O17 


.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCIi CONVERT ROUTINE 


TEAR RRBRBERERERBASASARAR RR RERSRERE RE RE RR RRRR RR RRR RRR RRRRRRRRSE RRR SRS SE SE SG | 


:*THIS ROUTINE WILL CONVERT A 32-B1T UNSIGNED BINARY NUMBER TO AN 
= *UNSIGNED OCTAL ASCI2 NUMBER. 


s*CALL 
8 MOV #ENTR,<(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
:* JSR PC,a#$DB20 — ::CALL THE ROUTINE 
ie RE TURN “THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
037316 104412 $DB20: SAVREG -;SAVE ALL REGISTERS 
037320 016601 000002 MOV 2(SP *:PICKUP THE POINTER TO LOW WORD 
037324 012705 037455 MOV ssoc Til +13. .AS “POINTER TO DATA TABLE 
037330 012704 000014 MOV #12. ,R4 *=DO ELEVEN CHARACTERS 
037334 012703 177770 MOV #AC7_R3 + :MASK 
037340 012100 MOV (R1)+,R0 "LOWER WORD 
037342 012101 MOV (R1)+.R1 -:HIGH WORD 
037344 005002 CLR R2 ; ; TERMINATOR 
637346 17.0245 1$: MOVB = R2,-(RS) “PUT CHARACTER IN DATA TABLE 
037350 610002 MOV RO,R2 «GET THIS DIGIT 
037352 005304 DEC R4 >>COUNT THIS CHARACTER 
037354 003007 BGT 3$ ;3BR IF NOT THE LAST DIGIT 
037356 001405 BEG 2$ “BR IF IT IS THE LAST DIGIT 
037366 005205 INC R5 : FALL DIGITS DONE~ADJUST POINTER FOR FIRST 
037362 010566 000002 MOV R5,2(SP) ASCIZ CHAR. & PUT IT ON THE STACK 
037366 104413 RESREG ; s RESTORE ALL REGISTERS 
027370 000207 RTS PC > :RETURN TO USER 
537372 006203 2$: ASR R3 : “POSITION THE MASK FOR THE LAST DIGIT 
037374 006001 3$: ROR R1 >:POSITION THE BINARY NUMBER FOR 
037376 006000 ROR RO i THE NEXT OCTAL DIGIT 
037400 006007 ROR R1 
037402 006 ROR RO 
037404 006001 ROR R1 2 
037406 006000 ROR RO 
037410 040302 BIC R3,R2 >:MASK OUT ALL JUNK 
037412 062702 000060 ADD #°O,R2 ;:MAKE THIS CHAR. ASCII 
037416 000753 BR 1$ -GOQ PUT IT IN THE DATA TABLE 


037420 $OCTVL: .BLKB 14. 7 RESERVE DATA TABLE 


SL Ss SS SS leon Ss sh SSS Si scenes ase een ae -om 
-~ - ~ —— 
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rm ee 


005227 
901375 
000005 


005037 


037619 
000340 


141462 
037614 
037510 


037610 
037614 
037614 
037614 
037616 


141406 


037436 
000340 


042 


000000 
001 346 
0017350 
001454 


MACRO VO04.00 4-APR-81 01:42:23 PAG 


000024 
000026 


000024 


000024 


000024 
C00026 


120 


E 14 
E 52 


.SBTTL POWER DOWN AND UP ROUTINES 


MER REBREBRBRRASAERBAASAASSARARRARR RRR RRR RRR RRRRRR RR RRR RRA RRR RRR RRR SRR SE SB 


*POWER DOWN ROUTINE 


$PWRDN: 


MOV 


A$SILLUP,@#PWRVEC ;;SET FOR FAST UP 
#340, aM#PWRVEC+2 ; ay 7 


Q .=(SP) += PU H RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,~ (SP) 3: PUSH ON STACK 
R3,-(SP) 3: PUSH ON STACK 
R4,-(SP) :;PUSH R4 ON STACK 
R5,-(SP) :;PUSH RS ON STACK 
@SWR ,- (SP) :Z;PUSH @SWR ON STACK 
SP, SSAVR6 ;;SAVE SP 

#SPWRUP, @APWRVEC ;;SET UP VECTOR 

~~2 3 ;HANG UP 


OREO RRERBSBEERASSSASSASLE SESE RE EERE RR REE RRR ERR RRR RRR RRR RSE RRR RRR SESS 


$PwR 


1$: 
2$: 


SPWRMG : 
SPWRAT : 
SILLUP: 
SSAVRE: 


PWRFLG: 
SPOWER: 


-EVEN 


OWER UP 


:POWER UP ROUTINE 
UP : 


MOV 


ASILLUP ,QMPWRVEC ;;SET FOR FAST DOWN 
$SAVR6, SP Scan! SP 


SSAVRE ;;WAIT LOOP FOR THE TTY 

FSAVRE + sWAIT FOR THE INC 

1$ ;OF WORD 

PWRFLG :WAIT AND SET POWER FAIL FLAG 
$ :WAIT FOR FLAG= 


(SP)+,R5 : «POP STACK INTO R5 
(SP) 4+,RG ;POP STACK INTO R4 
(SP)+,R3 : POP STACK INTO R3 
(SP) +,R2 ::POP STACK INTO R2 
(SP)+,R1 7:POP STACK INTO RI 
(SP)+,RO ::POP STACK INTO RO 


#SPWRON ,AMPWRVEC ;;SET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 ;:PRIO:7 
2 sREPORT THE POWER FAILURE 


SPOWER sPOWER FAIL MESSAGE POINTER 
(PC) +, (SP) ::RESTART AT SATPOW 
SATPOW 7 RESTART ADDRESS 
+2 THE POWER UP SEQUENCE WAS STARTED 
as ee BEFORE THE POWER DOWN WAS COMPLETE 


;PUT THE SP HERE 
NDICATES POWER FAIL OCCURRED WHEN SET 


.WORD 0 i 
"ASCIZ <CRLF>/*'POWER UP"'/<CRLF> 


ROUTINE ,WAIT TWO MINUTES, 


=P 
7 THEN AUTO STARTS AT SIZ2MEM 


SATPOW: 


INC 
BN 


#0 sTTY LOOP, WAI? FOR INCREMENT 
R sOF WORD 
-CLEAR THE WORLD 


MINUTE sRESET MINUTE COUNT 
SECOND “RESET SECOND COUNT 
INTRVL #2 “RESET THE INTERVAL COUNT 


LOL EE LL LL LLL ALG LT EO EE i A tt I A el TE lS il i tt ee 


SEG Ui’s 


———_— —_ ~~ = 


Re a ee ee. 
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POWER DOWN AND UP ROUTINES 


177776 
023344 
000002 


000400 
001596 


002044 
005112 


001454 
001336 


24 037724 


TT A OE R$ EE ee ee + eee «oe 


MACRO v04.00 


1$: 


23: 


ee me en ae eee 


CLR aaPs 

JSR PC,CKCLK 
CMP #2, INTRVL #2 
BH] 1$ 

MOV #400, CHGADR 
MOV #ORDERQ,RS 
CLR (R5)+ 

CMP #BLKADR,RS 
BNE 

JMP SI1ZMEM 


F 14 
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Sw 
THE CLOCK 

NUTES YET 7? 

F NOT 

THE AUTO START 

AR UP THE QUE AND BUFFER 


;ALL DONE ? 
s;BRANCH IF NOT 
sLOOP BACK 


sf Q (\7 ; 


UB. RMS, f/e DERE FER 
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.SBTTL TRAP DECODER 


METTITILITII LILI Lice ii iii iis iii tii iis: 
= *THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
>*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
=*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

:*GO TO THAT ROUTINE. 


037730 010046 $TRAP: MOV RO,=(SP) ::SAVE RO 
037732 016600 000002 MOV 2(5P) ,RO :3GE! TRAP ADDRESS 
037736 005740 TST =(RO) CKUP BY 2 
037740 711000 MOVB (RO) ,RO ; GET RIGHT BYTE OF TRAP 
037742 006300 ASL RO “POSITION FOR INDEXING 
037744 016000 037764 MOV $TRPAD(RO),RO 3: INDEX TO TALE 
037750 200 RTS RO +:GO TO ROUTINE 

::THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 
037752 011646 $TRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
037754 016666 0000046 000002 4(SP),2(SP) ::MOVE THE PSW DOWN 
037762 900002 RT] s RESTORE THE PSw 

_SBTTL TRAP TABLE 

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

-*BY THE "TRAP'' INSTRUCTION. 

: ROUT INE 
037764 037752 $TRPAC: .WORD $TRAP2 
037766 035450 $TYPE  ;:;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
037770 036030 $TYPOC ::CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
037772 036004 $TYPOS ::CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
037774 036044 STYPON ::CALL=TYPON  TRAP+4(104404) TYPF OCTAL NUMBER (AS PER LAST CALL) 
037776 036232 $TYPDS :;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
040000 033616 $GTSWR ::CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
040002 033526 $CKSWR ::CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 

00046 034070 S$RDCHR ::CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
C40006 034160 $RDLIN ::CALL=RDLIN TRAP*11(104411) TTY TYPEIN STRING ROUTINE 
040010 037026 $SAVREG ::CALL=SAVREG TRAP+12(104412) SAVE RO-RS ROUTINE 
0012 037064 $RESREG ::CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 
2 040014 032616 SPLY <:CALL=DISPLY TRAP*14(104414) ROUTINE TO TYPE ERROR MESSAGES 


000032 


$D 
$TERM=.~-$TRPAD 


I OE ee me. 


NO AE AN OO OOD NOP OTD A OO Qe UN wn 


PINMSPIRIMIAIRSrL DD ed A ee eed wed od + 


2 PERF EXER 
" fee QM 


DRIVER (REY 6,5) 


040016 000000 000000 000000 
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.SBITL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 
‘Net DRIVE TYPE ID FOR RMO2 seeneeeane 


10-AUG=77 eaannenanne 
=10=MAR=78 THE SC, SC5 CHANGES 
: NE DRIVE TYPE 1D FOR RMOS sannaneawe 


19BO seennneenne 


:COPYRIGHT (C) 1977,1981 

:DIGITAL EQUIPMENT CORP, 

sMAYNARD, MA 01754 

* AUTHOR(S) : JIM LACEY/CHUCK HESS 

“REVISED BY: MIKE LEAVITT 11-APK=-80, 27-MAR~-81 


SERRA RRR RRA RETREAT ETT REE ERRT RRA ARERR TREE 
3: STORAGE AMER “a yg iE RMERZ2, AND RMMR2 ON AN ERROR °'2"" 
= RMERRS+2 RMER 1 


=RMERRS+4 = RMER2 
:RMERRS+6 = RMMR2 
RMERRS: .WORD 0,0,0,0 


: TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
:DRVACT=0 IF DRIVE IS IDLE 
;DRVACT>O IF DRIVE IS ACTIVE WITH A C 


OMMAND 
sDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 


DRVACT: .BYTE Q ;DRIVE 0 
-BYTE Q ;DRIVE 1 
-BYTE 0 s;DRIVE 2 
VIE 9 sDRIVE 3 
yte: 0 sDRIVE 4 
-BYIE Q DRIVE 5 
wyTe 9 :DRIVE 6 
serie 9 DRIVE 7 


> TABLE OF ott STATUS INDICATORS (DRVSTA=8 BYTES) 
zDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
i DRVSTADO IF DRIVE IS ONLINE 
:DRVSTA<O IF DRIVE IS UNSAFE 


DRVSTA: .BYTE QO sDRIVE O 
BYTE O :DRIVE 1 
-BYTE OQ sDRIVE 2 
BYTE 0 :DRIVE 3 
«BYTE O sDRIVE 4 
BYTE O sDRIVE 5 
BYTE :DRIVE § 


DRIVE 


; TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
NRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO) 
SDRVTYP=7 IF DRIVE IS RMOS *#eee» 
-DRVTYP=5 IF DRIVE IS RMOe *e*ee 
:DRVTYP=4 IF DRIVE IS RMO3 


SFQ 017%, 


. 2 
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SINGLE /DUAL PORT ReH/RM DRIVER (REY 6.5) 19 


LT, LL SETS 
et ee ee ee 
TT ST steed os 


" qeecesnmemeene meen Se eI 


30 sDRVTYP==1 IF NO} RM05/3/2 
52 940046 000 DRYTYP: .BYTE 0O sDRIVE 0 
55 9066067 O00 BYTE 0 :DRIVE 1 
940050 000 BYTE QO :DRIVE 2 
040051 000 BYTE O iDRIVE 3 
940052 000 BYTE QO sDRIVE 4 
040053 000 BYTE C0 :DRIVE 5 
OCC -BYTE O sDRIVE 6 
“i 04005 000 BYTE O iDRIVE 7 
57 ; TABLE OF ar, PORT INITIALIZATION INDICATORS 
5 DPINT=0 IF INITIALIZATION JS NOT ACTIVE ON THE ORIVE 
be OPINT<O IF INITIALIZATION IS IN PROGRESS 
67 040056 000 DPINT: .BYTE 0 :DRIVE 0 
64 040057 COO BYTE O :DRIVE 1 
0060 000 BYTE QO :DRIVE 2 
040061 000 BYTE 0 :DRIVE 3 
0062 000 BYTE 0 :DRIVE 4 
04606 3 900 -BYTE O sDRIVE 5 
040064 000 BYTE 0 iDRIVE 6 
- 940065 G00 BYTE 0 “DRIVE 7 
66 : TABLE OF PENDING DUAL PORT REQUESTS 
67 sDPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
- =DPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
70 04 000 DPRQS: .BYTE 0 SDRIVE O 
7% 040067 000 «BYTE O :DRIVE 1 
040070 -BYTE OQ iDRIVE 2 
040071 000 BYTE 0O iDRIVE 3 
040072 -BYTE O :DRIVE 4 
040073 000 BYTE 0 :DRIVE 5 
040074 000 BYTE O :DRIVE 6 
“a 040075 000 BYTE O :DRIVE 7 
75 : TRANSFER WAIT cLAG (TRNSWT=1 WORD) 
76 sTHIS 1S A_ONE WORD QUEUE. IT WILi CONTAIN THE ADDRESS OF 
ts 2" DPB'’ OF THE I/0 OPERATION. 
je 040076 000000 TRNSWT: .WORD 0 
81 - SEARCH WAIT a ge (SRCHWT=1 WORD) 
82 :THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
83 > THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE I/6 
&4 “REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
4 3 :EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 
pt 040100 000000 SRCHWT: .WORD 0 
89 ;RM DRIVER ny ha FLAG (ACTDRV=1 BYTE) 
SC sACTDRV=0 IF DRIVER IS INACTIVE 
3 A TDRY>O IF DRIVER IS ACTIVE 
HS, 040102 000 ACTORV: .BYTE 0 


ET A TT ad 
ED A ERE EE OO EE et EE RO Rs mee er mm me we ee me 


On ES SF pees Eee 
SS EE Ee | here er ere ee eee 


A SR 


ere ee 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.5) 1981 SEQ 017% 
95 + SOF TWARE fa ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
% *ACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
4 s AE TSTRDO IF SOFTWARE TIMER ROUTINE IS ACTIVE 
R 040103 000 ACTSTR: .BYTE 0 
101 sUNLOAD FLAG (ULDFLG=8 BYTES) 
102 :ULDFLG=0 IF NO UNLOAD COMMAND 
103 sULDFLG>O {Ff UNLOAD COMMAND IN PROGRESS 
He. *ULDFLG<O if UNLOAD COMMAND IN WAIT QUEUE 
106 040104 000 ULDFLG: .BYTE 0 DRIVE 0 
109 040105 000 .BYTE OQ DRIVE 1 
040106 000 BYTE 0 DRIVE 2 
040107 000 .BYTE O :DRIVE 3 
040110 000 BYTE 0O DRIVE 4 
040111 000 .BYTE 0O DRIVE 5 
040112 000 BYTE 0O DRIVE 6 
iva 040113 000 BYTE 0 :DRIVE 7 
111 > SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
112 :SAVEFG <O IF SAVE THE RH/RM REGISTERS WHEN THE 
133 ‘OPERATION IS COMPLETED AS PER (DPR+14) 
1744 “SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
115 *(DPB+14), AFTER AN ERROR. 
Ba 040714 000000 SAVEFG: .WORD 0 
119 > SEEK FLAG (SEEKF G51 WORD) 
120 :SEEKFG=0 IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
121 “FOR A DATA TRANSFER START A SEARCH COMMAND 
122 *SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
123 *DISREGARD THE wINDOW 
128 040116 177777 SEEKFG: .WORD <1 
127 ativiels TABLE (TIMER=8 WORDS 
18 THIS TABLE CONTAINS: THE TIME ALLOWED FOR AN OPERATION 
130 040120 177777 TIMER: .WORD =) DRIVE 0 
133 040122 177777 -WORD -1 :DRIVE 1 
040124 177777 .WORD +1 DRIVE 2 
040126 177777 ; ~! DRIVE 3 
040130 177777 -WORD  =1 DRIVE 4 
040132 177777 .WORD -1 :DRIVE 5 
040134 177777 -WORD <1 :DRIVE 6 
ies 040136 177777 .WORD <1 “DRIVE 7 
135 DATA tamer UNDERWAY INDICATOR (DTUW=1 WORD) 
136 UW<0 IF NO DATA TRANSFER UNDERWAY 
Hy Artie (WHERE N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
Fe 040140 177777 DTUW: .WORD =1 
141 | sATTENTION BITS TABLE (ATABIT=8 BYTES 
Teo? | THIS TABLE CONTAINS THE CORRESPOND ING BI’ TO EACH DRIVES 


143 “ATTENTION BIT 


em TT TT ET Rn ee 
SOLE PATE I OO OE I EL A TE Ete le a me te 
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144 
145 040142 001 ABIT: .BYTE 1 ;DRIVE 0 
146 040145 002 BYTE 2 ;DRIVE 1 
147 040144 004 BYTE 4 ;DRIVE 2 
148 040145 010 ~BYTE 10 ;DRIVE 3 
149 040146 020 ~BYTE 20 :DRIVE 4 
150 040147 040 BYTE 40 ;DRIVE 5 
151 040150 100 BYTE 100 sDRIVE 6 
ie 040151 200 BYTE 200 ;DRIVE 7 
154 ;NUMBER OF 'MASSBUS CONTROL PARITY ERRORS'' (MCPE) ALLOWED BEFORE 
a2 :CALLING IT FATAL (MCPEMX=1 WORD) 
120 040152 000003 MCPEMX: .WORD 3 
159 >STORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
My =RMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 
162 040154 176700 RMADR: .WORD 176700 
163 040156 000254 000240 RMVEC: .WORD 254,5*32. 
< 040162 000050 RHEXT: .WORD 50 sOFFSET TO RMBAE 
168 ;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
be 2 040164 000005 MXWNDW: .WORD 5 
eS ;DEFINITIONS OF THE RH/RM ADDRESS INDEXES 
173 000090 RMCST = 0 ;CONTROL AND STATUS REGISTER 41 (DRIVE REG. ©) 
174 000002 RMWC =2 :WORD COUNT REGISTER (NOT A DRIVE REG) 
17 RMBA = 4 ;UNIBUS ADDRESS REGISTER (NOT A DRIVE RES 
176 RMDA = 6 :DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 5) 
177 000010 RMCS2 = 10 :CONTROL AND STATUS REGISTER 42 (NOT A DRIVE REG) 
178 000012 RMDS = 12 :DRIVE STATUS REGISTER (DRIVE REG 1) 
179 000014 RMERT = 14 [ERROR REGISTER #1 (DRIVE REG. 2) 
180 000016 RMAS = 16 ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 4) 
181 000020 RMLA = 20 OOK AHEAD REGISTER (DRIVE REG. 7) 
782 000022 RMDB = 22 ‘DATA BUFFER REGISTER (NOT A DRIVE REG.) 
183 000024 RMMRI = 26 :MAINTAINABILITY REGISTER (DRIVE REG. 3) 
184 000026 RMD T = 26 sDRIVE TYPE REGISTER (DRIVE REG. 6) 
185 000030 RMSN = 30 :SERIAL NUMBER REGISTER (DRIVE REG. 10) 
186 000032 RMOF = 32 [OFFSET REGISTER (DRIVE REG. 11) 
187 000034 RMDC = 34 :DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
188 000036 RMHR = 36 [DUMMY ADDRESS REGISTER (DRIVE REG. 13) 
189 000040 RMMR2 = 40 :MAINTENANCE REGISTER #2 
190 000042 RMER2 = 42 TERROR REGISTER #2 (DRIVE REG. 15) 
191 000044 RMEC1 = 44 ZECC POSITION REGISTER (DRIVE REG. 16) 
192 000046 RMEC2 = 46 ZECC PATTERN REGISTER (DRIVE REG. 17) 
194 000050 RMBAE = 50 :BUS ADDRESS EXTENTION REGISTER 
4 00005 RMCS3 == 52 > CONTROL AND STATUS REGISTER #3 
he .SBTTL RH/RM DRIVER INITIALIZATION CODE 
200 :THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
201 ZAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
202 3T0 THE PROPER STATE FOR EACH DRIVE. 
THIS ROUTINE CALLS DRVINT 


203 :NOTE : 


me ee we eee A EE A 
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205 3 CALL 

206 F 

207 JSR PC ,RMINIT 

$09 ; RE TURN 

230 :NOTE: THE 'P' OR 'L' CLOCK MUST BE STARTED 

212 040166 104412 RMINIT: SAVREG ;SAVE RO ~ R5 

213 040170 013746 177776 MOV PS ,-<SP) TSAVE THE PRESENT PROCESSOR STATUS 

214 040174 012737 000240 177776 MOV #<5232,>,PS SCHANGE THE PRIORITY TO 5 

215 04u202 737 045740 JSR PC, CLRQUE ;CLEAR ALL REQUEST QUEUES 

216 040206 012701 040016 MOV WRMERRS ,R1 :FIRST ADDRESS TO BE CLEARED 

217 040212 012702 040116 MOV WSEEKFG,R2 :LAST ADDRESS TO BE CLEARED 

218 040216 005021 1$: CLR (R1)+ CLEAR 

219 040220 020102 CMP R1,R2 ARE WE DONE? 

220 040222 103775 BLO 1$ BR IF NO 

227 040224 012702 040140 MOV #DTUWR2 [LAST ADDRESS 

222 040230 012721 177777 2$: MOV #=1,(R1)4 : INITIALIZE 

223 040234 020102 (MP R1,R2 ; DONE ? 

224 940236 101774 BLOS = a$ :LOOP IF NO 

225 040240 005037 040036 CLR DRVSTA :SET ALL DRIVES TO OFFLINE 

226 040244 005037 040040 CLR DRVSTA+2 

227 040250 005037 040042 CLR DRVSTA+4 

228 040254 005037 040044 CLR DRVSTA+6 

229 040260 013703 040156 MOV RMVEC .R3 ;SETUP THE RH/RM VECTOR 
040264 012723 042614 MOV #ISR, (R3)+ 

231 040270 013713 040160 MOV RMVEC+2, (R3) 

232 040274 013704 040154 MOV RMADR , R4 ;FIRST ADDRESS OF RH/RM 

233 040300 012764 0 000010 MOV #CLRRMCS2(R4) :MASSBUS INIT 

234 040306 005001 CLR R1 [START WITH DRIVE 0 

235 040310 004037 040400 3$ JSR RO.DRVINT INIT THE DRIVE 

236 040314 000401 BR 4$ :'DVA’ NOT SET OR PARITY ERROR 

237 040316 000402 ak 5$ :NORMAL RETURN 

238 040320 105061 040036 4$ CLRB —— DRVSTA(R1) :SET DRIVE STATUS TO OFFLINE 

239 040324 005201 5$ INC R1 :GO TO NEXT DRIVE 

240 040326 042701 177770 BIC #°(7,R1 ;MASK OUT UNUSED BITS 

241 040332 001366 BNE 3$ ;BR IF MORE DRIVES TO GO 

242 040334 012701 000007 MOV =—s-_-#7,,R1 :START WITH DRIVE 7 

243 040340 005037 177776 CLR PS :CLEAR THE PROCESSOR STATUS 

244 040344 105761 040056 6$ TSTB) = DPINT(R1) [WAITING FOR DRIVE TO SWITCH PORTS ? 

245 040350 001405 BEO 8$ :BR NOT WAITING 

246 040352 737 045374 JSR PC,SET.IE 7SET INTERRUPT 

247 040356 105761 040056 7$ TSIB) = DPINT{R1) ; DRIVE SWITCHED PORTS ? 

248 040362 001375 BNE 7$ F NOT 

249 040364 005301 8$ DEC R} :G0 TO THE {NEXT DRIVE 

250 040366 100 BPL 6$ :CHECK NEXT DRIVE 

251 040370 012637 177776 MOV (SP) +,PS ;RESTORE THE PROCESSOR STATUS 

252 040374 104413 RE SREG ‘RESTORE RO - R5 

253 040376 000207 RTS PC ;BYE-BYF 

255 ;DRIVE INITILIZATION ROUTINE 

256 :THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS 

257 :AN RMO5/3/2. IF IT 1S. .A “READ-IN PRESET’ IS ISSUED AND FMT16 

258 :1S SET TO A ‘'1''. THEN MOL, DPR, DRY, AND VV ARE CHECKED TO 

259 “INSURE THEY ARE ALL ON A ““1'', AND DEPENDING ON THEIR STATE, 

260 i DRVSTA IS SET TO THE PROPER CONDITION. 
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262 : MOV #DRVNUM,R1 :DRIVE NUMBER TO R1 
263 : MOV RMADR ,R4 ‘UNIBUS ADDRESS oF RH/RM (RMCS1) 
264 : JSR RO, DRVINT [CALLED BY A JSR 
565 : RE TURN1 “ERROR OCCURRED (PARITY) 
266 RE TURN2 “NORMAL RETURN 
ae 
26S 040400 010546 DRVINT: MOV RS,=(SP) :SAVE RS 
270 040402 105061 040036 CLRB DRYSTACRI) “START DRIVE STATUS AS OFFLINE 
271 040406 105061 040046 CLRB  — DRVTYP(R1) “CLEAR THE DRIVE TYPE INDICATOR 
272 040412 105061 040104 CLRB  —:ULDFLG(R1) “CLEAR THE UNLOAD FLAG 
273 040416 010164 000010 MOV R1.RMCS2(R4) :SELECT A DRIVE 
274 040422 112764 000111 000000 MOVB  #111,RMCS1(RG) :DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
575 040430 032764 010000 000010 BIT #BITI2, RAICSO CRG) “NONEXISTENT DRIVE? 
276 040436 001403 BEQ 1$ NO 
277 040440 004737 045374 JSR PC, SET. IE “GO SET ‘‘IE’’ WITHOUT A ’‘TRE’’ 
278 040444 000520 BR 4$ “LEAVE THIS ROUTINE 
280 040446 105061 040036 1$: CLRB — DRVSTA(R1) ‘SET DRIVE STATUS TO OFFLINE 
281 040452 032764 004000 000000 BIT WBIT11,RMCS1(R4)- :SEE IF DRIVE AVAILABLE 
282 040460 001512 BEQ 4$ :BR IF DRIVE NOT AVAILABLE 
283 040462 004037 044666 JSR RO,RD.RM “READ THE DRIVE TYPE REG. 
284 040466 000026 RMD T 
285 040470 040710 5$ : ERROR RETURN ADDRESS 
286 040472 012605 MOV (SP)+,R5 “PUT DRIVE TYPE IN R5 
287 040474 112761 000004 040046 MOVB  #4.DRVTYP(R1)  =SET RMO3 INDICATOR 
288 040502 022705 020024 CMP #20024 ,R5 *SINGLE PORT RMO3 ? 
289 040506 001431 BEQ 2$ “BR IF YES 
290 040510 022705 024024 CMP #24024,R5 “DUAL PORT RMO3 ? 
291 040514 001426 BEQ “BR IF YES 
292 040516 112761 000005 040046 MOVB #5.DRVTYP(R1)  =SET RMO2 INDICATOR 
293 040524 022705 020025 CMP #20025.R5 “SINGLE PORT RMO2 ? 
294 040530 001420 BEQ 2$ “BR IF SO 
295 040532 022705 024025 CMP #24025 ,R5 “DUAL PORT RMO2 ? 
296 040536 001415 BEQ $ “BR IF SO 
597 040540 112761 000007 040046 MOVB  #7.DRVTYP(R1)  =SET RMOS INDICATOR 
298 040546 022705 020027 CMP #20027 ,R5 ‘SINGLE PORT RMOS ? 
299 040552 001407 BEO $ “BR IF YES 
300 040554 022705 024027 CMP #264027,R5 “DUAL PORT RMOS ? 
301 040560 001404 BEQ “BR IF YES 
302 040562 112761 177777 040046 MOVB #1 DRVTYP(R1) =SET INDICATOR TO ‘OTHER’ 
303 040570 000446 BR 4$ “EXIT 
305 040572 012746 000121 2$: MOV #121,-(SP) :DO A ‘'READ-IN PRESET’’ 
306 040576 004037 045042 JSR RO. WRT.RM 
307 040602 000000 RMCS1 

040604 040710 5 

040606 012746 010060 MOV WBIT12.-(SP) | :SET FMT16=1 
310 040612 004037 045042 JSR RO, WRT .RM 
311 040616 000032 RMOF 
312 040620 040710 5$ 
313 040622 004037 044666 JSR RO,RD.RM -READ RMDS 
314 040626 12 RMDS 
315 040630 040710 5$ 
316 040632 012605 MOV (SP) +,R5 ‘AND SAVE IT IN RS 
317 040634 100015 BPL 3$ “BR IF ATA=0 
318 040636 116164 040142 000016 MOVB — ATABIT(R1) ,RMAS(R4) *CLEAR ATTENTION BIT 


et ER SE OR TERE a em OR me ee me een On ee re ee 
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_ 


319 040644 


333 040712 
334 


IRAISSSSTETER 


004037 
000014 
040710 
006126 
100004 
112761 
000407 
005105 
poe ook 


013746 
013737 


012762 
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044666 


177777 


167077 
000001 


177776 
040160 
000001 
000016 


040154 
040036 


640104 
040056 
040400 
040036 
040066 
000010 
046036 
000103 


177777 
040026 


041206 
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JSR RO,RD.RM sF IND OUT WHY ATA=1 


RMERT 
ROL (SP)+ 31S IT UNSAFE? 
BPL 3$ “BR IF NOT 
040036 MOVB  #=1,DRVSTA(R1) :SET UNSAFE INDICATOR 
BR 4$ sEXIT 
3$: COM 5 : CHECK DPR. DRY, AND VV 
BIC 4° <B1T12! 8170881107181 706> 
BNE i ws soa DRY, OR VV IS CLEAR 
040036 MOVB #$ #1,DRVSTA(R1) SET DRIVE STATUS TO ONLINE 
4$: TST (RO) + “STEP OVER THE ERROR RETURN 
S$: MOV (SP) +,R5 “RESTORE RS 
RTS RO , 
“REQUEST PRE=PROCESSOR=HANDLES SUBSYSTEM REQUEST 
CALL 
: JSR RO,RMOS :CALL THE RMOS DRIVER 
: PNT ‘ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
: RETURN1 “RETURN HERE IF QUEUE IS F 
: RETURN2 “RETURN HERE IF REQUEST IS “iN QUEUE OR THERE 
* 1S AN ERROR CONDITION 
R MOV PS,-(SP) ;SAVE THE CALLING STATUS 
177776 MOV RMVEC+2,PS “DON'T ALLOW ANY RM INTERRUPTS 
040102 MOVB  #1.ACTDRV *SET "‘ACTIVE DRIVER’’ FLAG 
. SAVREG “SAVE RO - RS 
MOV (RO) ,R2 “PICKUP THE DRIVE PARAMETER BLOCK POINTER 
CLR 16(R2) “CLEAR THE STATUS/ERROR INDICATOR 
MOVB  (R2),R1 *PICKUP THE DRIVE NUMBER 
MOV RMADR ,R4 *UNIBUS ADDRESS OF RMCS1 
TSTB — DRVSTA(R1) *CHECK DRIVES STATUS 
PGT 1$ :BR IF ONLINE 
TSTB) ~—s— ULDFLLG(R1) “UNLOAD COMMAND IN QUEUE? 
BNE “BR IF YES 
STB —sDPINT(R1) “TRYING TO INIT THE DRIVE 
BNE “BR IF YES 
JSR RO. DRVINT “GO INIT. THE DRIVE 
BR “ERROR RETURN 
TSTB = DRVSTA(R1) “1S DRIVE STATUS ONLINE? 
BLE *BR IF NOT 
1$: TSTB —s DPRQS(R1) “QUTSTANDING PORT REQUEST FOR {HE DRIVE ? 
BNE 5$ “BR IF YES 
MOV R1,RMCS2(R4) “SELECT THE DRIVE 
JSR RO. DRVQUE “PUT THIS REQUEST IN QUEUE 
BR “QUEUE IS 
000002 CMB #103.2(R2) 71S THIS REO" “FOR AN UNLOAD? 
040104 MOVB  #=1,ULDFLG(R1) SET THE ‘UNLOAD IN QUEUE'' FLAG 
TSTB —sDRVACT(R1) “IS THIS DRIVE ACTIVE? 
BNE 8$ “BR IF YES 
JSR PC ,OPT “CALL THE OPTIMIZER 
MCV #81715'B1113,16(R2) *SET THE "UNLOAD IN QUEUE'* ERROR FLAG 


120000 000016 3$: 


— = a re ce ee 
- =: - re err = re re rm re mrs wa meme ee ee ere oo er ee ee 


SEQ 018 


376 041070 
377 041072 
378 041076 
379 041100 
380 041104 
381 041106 
382 041112 
383 041114 
384 041120 
385 041122 
386 041126 
387 041130 
388 041136 
389 041142 
390 041144 
391 041152 
392 041154 
393 041162 
394 041164 
395 041166 
396 041170 
397 041172 
398 041174 
399 047200 
400 041204 
401 

402 

403 

404 

405 

406 

407 

408 041206 
409 041210 
410 041214 
411 061222 
412 041226 
413 041232 
414 041234 
415 041236 
416 041242 
417 041250 
418 041256 
419 041260 
420 041264 
421 041266 
422 041272 
423 041300 
424 041304 
425 041306 
426 041314 
427 041316 
436 041316 
437 041324 
438 041326 
439 041332 
440 041334 
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042264 
046036 
000100 
045374 
040036 


140006 
040046 


100002 
110000 


040102 
177776 


041650 
040140 
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4$: 
5$: 


6$: 


000016 


000016 


000016 /7$: 
8$: 


BCCI? 

RO, DRVQUE 
#B1T06, (R4) 
PC,SET.IE 
_—, 


:BR IF UNS/F 
#81T15'B1T14,16(R2) :SET OF F 


DRVTYP(R1) 


8$ 

#B1T15!B1T01,16(R2) 
:GO TO KIT 

#B1T15'B1T12,16(R2) 
“RESTORE 


(RO) + 
10$ 


(RO) + 
ACTDRV 
(SP)+,PS 
RO 


sExIT 
3GO HANDLE THE PARITY ERROR 


;PuT “weigh IN QUEUE 

SQUEUE IS FULL 

fF sal SET ? 

7SET THE INTERRUPT 

RETURN 

SEE IF oy OFFLINE OR UNSAFE 


LINE ERROR Os atid 
7 SEE i’ OFFLINE OR NONE XI STEN 


INE 
_ DRIVE NONEXISTENT 
sDRIVE 1S UNSAFE 
RO - R5 


; FOR NORMAL RET 
FINISH UP, THEN EXIT 
RESTORE RO - 


R 
; CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER’ FLAG 
TURN “PS** TO USER LEVEL 
RETURN TO CALLER 


:OPTIMIZER=CALLED FOR A PARTICULAR DRIVE 


; CALL 


OPT: 


040100 


000016 


23: 


000002 


3$: 


#DRVNUM ,R1 
PC,OPT 


PC,GETREQ 
R 


7$ 

R1,RMCS2(R4) 
#111,RMCS1(R4) 
#aiTit, RMCS1(R4) 


5 
DRVSTA(R1) 
2$ 


PC ,POPQUE “NO--RE 
#BIT15! BIT14, seaae 


DRVSTA(R1 


$ TO 
#81115 !BIT12, 16(R2) 
8$ :BR TO EX 


#150,2(R2) 
3$ 

PC,CI4 

8$ 

DT UW 


;DRIVE NUMBER TO R1 
is OMMAND 


ETUP A C 


:SAVE RO - R5 
>SAVE PROC. STATUS 


CHWT ‘ : CLEAR er orn FLAG 


Q FLAG **** 


:GET *DPB"’ POINTER OF REQUEST 


21S ey hg at IN QUEUE? 
“LOAD THE DRIVE ADDRESS ******* 


CLEAR THE ast VE 


ET 
T REQUEST IF NOT 
NE? 


TO 
:1S DRIVE ONLI 


MOVE REQUEST FROM QUEUE 
3 SET ie ae STATUS/ERROR INDICATOR 


vE 

EXIT IF i 

gos! UNSAFE STATUS/ERROR INDICATOR 
‘ie THE REQUEST FOR I/0? 

‘CALL THE COMMAND INITIATOR 

:BR TO EX! 

;DATA TRANSFER UNDERWAY? 


SEQ 0185 


cr eevee ce enone 5 oe eee 


Gene 
2 ee —— 


441 041340 
442 041342 
443 041346 
444 041350 
445 041354 
446 041356 
447 041362 
448 041364 
449 041372 
450 041374 
451 041376 


~~ ec ee ee ce ee ed ee eed ond oe 


013704 
010164 
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040116 
041434 
041542 
177777 


035230 


042264 
000100 


045374 
177776 


046134 
049076 


040154 
060010 


000004 
000002 
045042 
045042 
000002 
045042 


040140 
042226 


040154 
060010 


~~ 
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SEQ 0184 
BGE 4$ sYES=--GO START A SEARCH 
TST SEFKFG :DO IMPLIED SEEKS? 
BPL 4 “NO, DO A SEARCH 
JSR pc .C11 “START A DATA TRANSFER 
4$: JSR PC,C13 sSTART A SEARCH 
BR 8 360 TO THE EXIT 
040066 5$: MOVB #=1,DPRQS(R1) iSET PORT REQUEST INDICATOR 
MOV R1,R3 T UP TO ADDRESS WORDS 
ASL R3 CONVERT TO WORD INDE x 
040120 MOV mer enas ; :START 15. SECOND TIMER 
63: JSR ;PROCESS THE PARITY ERROR 
7$: BIT eat tos, (RG) ‘SEE IF ‘IE* ALREADY SET 
BNE 8$ “BR IF SET 
JSR PC. SET IE “SET ‘‘IE’’ WITHOUT A ‘‘TRE’’ 
Bs: MOV (SP) +,PS “RESTORE PROC. STATUS 
RESREG “RESTORE RO = R5 
S PC 
COMMAND INITIATOR 
: CALL 
: #DRVNUM ,R1 :DRIVE NUMBER 
: MOV #DPB,R2 -ADDRESS OF DPB 
: JSR PC,CI? Cecile »C13, OR C14 
: *C11=DATA TRANSFER 
: *C13=SEARCH REQUESTED BY DATA XFER 
: *CI4=NOT DATA TRANSFER 
C11 JSR PC ,POPQUE :REMOVE REQUEST FROM "DRIVES WAIT’’ QUEUE 
MOV R2, TRNSWT “PUT REQ. IN TRANSFER WAIT QUEUE 
MOV R2,R3 DPB ADDRESS TO R3 
MOV RMADR RS *RMCS1 ADDRES 
MOV R1,RMCS2(R4) -SELECT DRIVE 
ADD #4 RB “DESIRED WORD COUNT 
ADD #2,R4 ; RMalC ADDRESS : 
MOV (R3)+, (R4)+ =LOAD WORD COUNT 
MOV (R3)+, (RG>+ *LOAD BUFFER ADDRESS _ 
MOV (R3)+,=-(SP) *LOAD SECTOR AND T 
JSR RO,WRT RM :CALL THE POAD (URI TE) ROUTINE 
RMDA - INDEX OF REGISTER TO LOAD 
C17 *ERROR RETURN ADDRESS 
MOV (R3)+,-(SP) -LOAD CYLINDER ADDRESS 
JSR RO,WRT.RM 
MOV 2(R2) ,-(SP) =LOAD ''COMMAND+G0"", ''A17&A16"', AND "'PSEL"” 
JSR RO, WRT.RM 
MOV R1,DTUW :SET "DATA TRANSFER UNDERWAY'" 
JMP c15 
C13: MOV =RMCS1 ADDRESS 


RMADR ,R4 
MOV R1,RMCS2(R4) 


———— A ee 


:SELECT DRIVE 


wr a eee ow a 


= LLL CILLA IETS A CT A Ne SG ee 


SL TT 
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498 041552 016246 000012 
004037 


499 041556 645042 
500 041562 
501 041564 042264 
502 041566 116203 000010 
503 041572 163703 040164 
504 041576 002002 
505 041600 062703 000040 
| 506 041694 010346 
| 507 041606 116266 000011 
| 508 041614 094037 045042 
| 509 041620 000006 
| 510 041622 0422 
| 511 041624 012746 000131 
| 512 041630 037 045042 
| 513 041634 
| 514 041636 042264 
| 515 041640 156137 040142 
316 041646 000567 
518 041650 013704 040154 
519 041654 010164 000010 
520 041660 116203 000002 


527 041706 000403 
528 041710 122703 000105 
529 041714 001007 

530 041716 016246 000012 
531 041722 004037 045042 
532 041726 

533 041730 042264 

534 041732 000546 

535 041734 122703 000115 
536 041740 001013 

537 041742 044666 
538 041746 32 

539 041750 042264 

540 041752 116216 000001 
541 041756 004037 045042 
542 041762 32 

543 041764 042264 

544 


041766 000530 
545 041770 122703 000107 
546 041774 001525 
547 041776 122703 000117 
8 042002 522 


042004 122703 C00103 

0 042010 001016 

1 042012 112761 000001 
042020 105061 040036 

3 042024 112761 000001 

4 042032 010 


TE TE EE TT EE TT LT a. 
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000001 


040100 


040026 
040704 


1$: 


C14: 


1$: 
2$: 


3$: 


4$: 


12(R2) ,-(SP) 
M 


sDESIRED CYLINDER ADDRESS 


RO.WRT.R 
10(R2) ,R3 sPICKUP SECTOR ADDRESS 
apeee.AS sBACKUP BY MAX. SEARCH FOR I/0 WINDOW 
#32. ,R3 
R3,-(SP) s COMBINE THE a? SECTOR WITH 7 
11\R2),1¢SP). THE DESIRED TRACK 
RO,WRT.RM *LOAD DESIRED TRACK & SECTOR 
#131,-(SP) ;START A SEARCH 
RO,WRT.RM 
en mt) aaa sSET ‘'SEARCH WAIT’’ KEY 
RMADR ,RS :RMCS1 ADDRESS 
R1,RMCS2(R4) :SELECT DRIVE 
2(R2) ,R3 >PICKUP THE REQUESTED COMMAND 
#131,R3 31S IT A SEARCH COMMAND? 
1$ “BR IF NO 
10(R2) ,- (SP) = LOAD DESIRED TRACK & SECTOR 
RO,WRT.RM 
2$ 760 ie CYLINDER 
#105,R3 :1S IT A SEEK COMMAND 
;BR IF NO 

12(R2),-(SP) :LOAD DESIRED CYLINDER 

,WRT.RM 
C16 
ee 71S : = "OF FSET’’ COMMAND? 
RO.RD.RM “ MERGE bes OFFSET VALUE INTO RMOF 

:BUT DON’T CHANGE THE UPPER 

1(R2) , (SP) :BYTE WHEN on THE 
RO,WRT.RM ;REGISTER (RMOF ) 
CI6 -GO START THE COMMAND 
#107,R3 :IS IT A *'RECALIBRATE’’ COMMAND? 
C16 :BR IF YES 
#117,R3 1S IT A RETURN TO CENTER? 
Ci :BR IF YES. 
eperens A H AN *‘UNLOAD'* COMMAND? 
#1 ,DRVACT(R1) “SET THE DRIVE ACTIVE ee TLATOR 
DRVSTACR1) sPuT DRIVE STATUS TO OFFLINE 
#1 ,ULDFLG(R1) SET "UNLOAD IN PROGRESS'" FLAG 


R3,-(SP) 


=START THE ‘UNLOAD’’ COMMAND 


SEG 018° 


ee ee — 
— re eee + 





E 15 
CZ7RMUBO RMO5/3/2 PERF EXER MACRO Y04.00 4-APR=-81 07:42:23 PAGE 54-10 


RH/RM DRIVER INITIALIZATION CODE SFQ 0186 

555 042034 004037 045042 JSR RO,WRT «RM 

556 042040 000000 RMCS1 

557 042042 042264 CI? 

558 042044 000207 RTS PC ;RETURN TO USER 

559 042046 122703 000143 S$: CMPB Ss: #143,R3 71S IT A "'SET FORMAT’’ COMMAND? 
560 042052 001014 BNE 6$ “BR IF NO 

561 042054 004037 044666 JSR RO,RD.RM PREAD THE OFFSET REGISTER 

562 04 32 RMOF 

563 942062 042264 C1? 

564 042064 116266 000001 000001 MOVE 1(82) .1¢SP) COMBINE “FMT16'',"ECI D HCI" 
565 042072 004037 045042 JSR RO,WRT [LOAD ''FMT16'', EC] | ANDYOR ar’, 
566 042076 32 RMOF 

567 042100 042264 C17 

568 042102 000436 BR i2$ 

569 042104 122703 000141 6$: (MPR #141,R3 ;1S IT A ‘GET REGISTER’’ COMMAND? 
70 042110 001023 BNE 10$ BR IF NO 

571 042112 016203 000006 7$: MOV 6(R2) .R3 :POINTS TO 1ST ADDRESS OF WHERE 
572 ;T0 PUT THE REGISTER(S) 

573 042116 116237 900010 042134 MOVB  10(R2),9$ :INIT. THE INDEX FOR THE FIRST REG. 
574 042124 116205 000011 MOVB 11(R2),R5 ; INDEX OF LAST REG. TO MOVE 

575 042130 004037 044666 8S: JSR RO,RD.RM ;READ RH/RM REGISTER 

76 042134 000000 9$: RMCS1 : INDEX OF REG. TO READ 

577 042136 042264 C17 

578 042140 012623 MOV (SP)+,(R3)* ;GET THE CONTENTS OF RH/RM REG. 
579 042142 023705 042134 CMP 9$.R5 :LAST REG. BEEN READ? 

580 042146 001414 BEO 12$ :GET OUT IF YES 

581 042150 062737 000002 042134 ADD #2 ,9$ Z INCREASE THE INDEX BY 2 

582 042156 000764 BR 8$ ;LOOP=-MORE TO READ 

§83 042160 122703 000145 10$:  CMPB #145,R3 :IS IT A ‘'SELECT DRIVE'’ COMMAND? 
584 042164 001405 BEQ 12$ :BR IF YES 

585 042166 010346 11$: MOV R3,~-(SP) :LOAD THE COMMAND 

586 042170 004037 045042 JSR RO,WRT .RM 

587 042174 000000 RMCS1 

588 042176 042264 C17 

589 042200 004737 046134 12$: JSR PC ,POPQUE ;REMOVE REQ. FROM QUEUE 

590 042204 052762 000200 000016 BIS #B1T07,16(R2) SET THE "DON 

591 042212 005737 040114 TST SAVEF G SAVE THE RH/RM REGISTERS? 

592 042216 100002 BPL 13$ BR IF NO 

593 042220 004737 045230 JSR PC, SVRH70 :VES-=GO SAVE THE REGISTERS 

594 042224 000207 13$: RTS PC -RETURN TO USER 

596 042226 006301 CES: ASL R1 

597 042230 012761 023420 040120 MOV #10000. , TIMER(R1) ;START 10. SECOND TIMER 
598 042236 006201 ASR 

599 042240 112761 000001 040026 MOVB #1,DRVACT(R1)  ;SET THE DRIVE ACTIVE 

600 042246 000207 RTS PC :RETURN TO THE USER 

602 042250 010346 C16: MOV R3,-(SP) ;LOAD THE COMMAND 

603 042252 004037 045042 JSR RO.WRT «RM 

604 042256 000900 RMCS1 

605 042260 042264 CI7 

606 042262 000761 BR C15 


032764 010000 000010 CiI/?: BIT #BIT12,RMCS2(R4) ;DRIVE NON-EXISTENT ? 
$: TST R2 ;ANYTHING IN QUEUE ? 


612 
616 042274 001001 BNE 2S ;BR IF QUEUE IS THERE 
617 042276 000207 RTS PC ;OTHERWISE EXIT 


=o 


- ——oOoOeoeoeee = = 


618 042300 
622 


684 600 
685 042604 


012762 
012746 


CZRMUBO RMO5/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


104000 
000111 
045042 


046016 


040076 


040076 
177777 


040026 
040066 


040076 
040140 


046112 


010000 
100002 
102600 
177777 
040026 
049066 
040140 
177777 


006002 
177770 


177777 
040076 
045740 
000040 


046016 
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000016 2$: 


C17B: 


1$: 


040140 


000010 
000016 


000016 4$: 
040120 5$: 


040140 


é$: 


000010 


040140 


000010 
7%: 


8$: 


MOV 


#B1715!B1T11,16(R2) 
;D0 A ‘DRIVE CLEAR"’ 


#111,-(SP) 
RO,WRT.RM 


PC,EMPTYQ 
DPRQS(R1) 
ULDFLG(R1) 
DRVACT(R1) 
R2,TRNSWT 
2$ 


TRNSWT 
A#=-1 ,DTUW 
PC 


R1 

R3 
 iataleaae 
DPRQS(R1) 
6$ 


TRNSWT ,R2 
R1,DTUW 


PC,GETREQ 
Re 


5$ BR IF 

+ ide eRMCS2(R4) 

#B1T15!B1T01, 16(R2) 

5$ CONTI 

wan EHS 2 BALE 16(R9) 
TIMER(R3) 


#-i, 
DRVACT(R1) 
DPROQS(R1) 
R1,DTUW 
6$ 


ULDFLG 


PC,CLR 


QUE 
#CLR,RMCS2(R4) 
8$ 


PC,EMPTYQ 
DRYSTA(R1) 
DRVTYP(R1) 
PL SET WIE 


R1) 
WIT, RMCS2(R4) 


SEQ 0187 


;SET ‘PARITY'’ ERROR INDICATOR 


EMPTY THE QUEUE 


;CLEAR THE PORT REQUEST FLAG 

;CLEAR THE UNLOAD IN QUEUE FLAG 
:DRIVE IS IDLE 

;1F THIS DRIVE HAD AN I/O REQUEST 

7 IN PROGRESS CLEAR ALL OF THE FLAGS 


;SAVE RO = RS 


;DRIVE ACTIVE? 
:BR IF IN ACTIVE 
*PORT REQUEST 

F NOT 


:GET THE ‘‘TRANSFER WAIT’ QUEUE 
:DID gg? DRIVE HAVE AN I/0 IN PROGRESS? 


[BR ES 
;GET THE DPB POINTER 
SQUEUE ENTRY FOR DRIVE ? 


NOT 
oe SET ? 
3SET "DRIVE NON-EXISTENT’ INDICATOR 


te 3 *'NON-CLEARABLE PARITY’ ERROR INDICATOR 
:S STOP. THE TIMER 

:SET ‘DRIVE ACTIVE*’’ TO IDLE 

*CL LEAR PORT REQUEST FLAG 

:IS see ai SETUP FOR A TRANSFER 


SRESET THE INDICATOR 
;CLEAR THE TRANSFER QUEUE 
CLEAR URED FLAG 


sMOVE TO THE NEXT DRIVE 


;BR IF MORE DRIVES 

:NO DATA TRANSFERS UNDERWAY 
:CLEAR THE ‘TRANSFER WAIT" QUEUE 
:CLEAR ALL OF THE REQUEST QUEUES 
;D0 A MASSBUS INIT. 

> CONT INUE 

:CLEAR THE nts S QUEUE 

:SET DRIVE TO OFFLINE 

:CLEAR THE DRIVE | TYPE INDICATOR 
“SET ‘'IE'’ WITHOUT "'TRE'' 

:RESTORE RO = R5 
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RH/RM DRIVER INITIALIZATION CODE 


<—- eee em ee eee 


a LL ee eee mem ener ee oous 
_———e < - - —- a a ae 


087 042612 000207 RTS PC RETURN 
689 s INTERRUPT SERVICE ROUTINE 
691 042614 112737 000001 040102 ISR: MOVB ~~ #1,ACTDRV ;SET "ACTIVE DRIVER’ FLAG 
692 042622 104412 SAVREG : SAVE 
693 042624 013704 040154 MOV RMADR RS | S ADDRESS OF RMCS1 
694 042630 013701 040140 MOV DTUW,R1 ‘GET ‘DATA TRANSFER UNDERWAY’’ INDICATOR 
695 042634 002402 BLT 1$ “BR IF NO DATA TRANSFER UNDERWAY 
696 042636 004737 042656 JSR PC,TD “CALL TRANSFER DONE 
697 042642 004737 043120 1$: JSR PC,SC 7 CALL SPECIAL CONDITIONS 
698 042646 104413 2$: RESREG ‘RESTORE RO - R 
699 042650 105037 040102 CLRB ACTDRV “CLEAR ACTIVE DRIVER’’ FLAG 
700 042654 000002 RT] RETURN 
| 702 : TRANSFER DONE ROUTINE 
704 042656 105061 040026 TD: CLRB — DRVACT(R1) :SET DRIVE ACTIVE INDICATOR TO IDLE 
705 042662 012737 177777 040140 MOV #~1,DTUW “NO DATA TRANSFERS UNDERWAY 
| 706 642670 006301 ASL R1 
| 707 042672 012761 177777 040120 MOV #=1,TIMER(R1) ;CANCEL TIMEOUT 
| 708 042700 006201 ASR R1 
| 709 042702 013702 040076 MOV TRNSWT ,R2 :GET ''DPB’’ ADDRESS FROM THE 
| 710 042 005037 040076 CLR TRNSWT “TRANSFER WAIT QUEUE--CLEAR QUEUE 
| 711 042712 052762 000200 000016 BIS #B1T07,16(R2) SET DONE 
| 712 042720 010164 000010 MOV R17, RMCS2(R4) >SELECT THE DRIVE 
713 042724 004037 044666 JSR RO,RD.RM > TRANSFER ERROR(TRE=1)? 
714 042730 000000 RMCS1 
715 042732 042264 C17 
716 042734 006126 ROL (SP) + 21S TRE=1 ? 
. 717 042736 100421 BM | 3$ “BR IF YES 
718 042740 005737 040114 TST SAVEFG < SAVE THE RH/RM REGISTERS? 
719 042744 100002 BPL 1$ F NO 
720 042746 004737 045230 JSR PC, SVRH70  YES-~SAVE THE REGISTERS 
722 042752 004737 043032 1$: JSR PC. WC .HK “SEE IF WRITE CHECK TO BE PUT IN QUEUE 
723 042756 004737 046112 JSR PC GETREG -GET DPB POINTER 
727 042762 005702 TST R2 *ENTRY FOR DRIVE ? 
| 728 042764 001403 BEQ 2$ 7BR JF NOT 
729 042766 004737 041206 JSR PC OPT ;CALL OPTIMIZER 
| 730 042772 000207 RTS PC “RE TURN 
731 042774 012714 000113 2$: MOV #113, (R4) *RELEASE THE DRIVE 
732 043000 000207 RTS PC *RE TURN 
734 043002 052762 100100 000016 3$: BIS #81115 181106, 16(R2) ;SET DATA ERROR FLAG 
735 043010 004737 046016 JSR PC. EMPTYQ sEMPTY THE "DRIVE'S WAIT'’ QUEUE 
736 043014 045230 JSR C; SVRH70 SAVE THE RH/RM REGISTERS 
| 737 043020 040111 MOV weoilt, (R4) :ISSUE A ‘DRIVE C | 
738 043024 000113 MOV #113, (RS) - ISSUE A RELEASE "0 ai DRIVE 
| hy 043030 TS PC - RETURN 
| ?4e :FORCED WRITE CHECK ROUTINE 
745 063032 001470 WC.HK: TST WRT CHK :DO WRITE CHECK ? 
| 746 043036 BEQ 2$ -B 
747 043040 000161 000002 CMPR = #WRIDAT.$COMND(R2) ;:LAST OPERATION A WRITE ORDER ? 
| 751 043046 BNE :BR IF NOT 
| 752 043050 046036 i$: JSR RO, DRVQUE “PUT THE OPERATION IN THE QUEUE 
| 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0189 
753 043054 900420 AR 2$ ;QUEVE IS FULL 
754 043056 005062 600016 CLR $TATUS(R2) :CLEAR ‘DONE’ BIT IN DPB 
755 043062 116262 002136 000027 MOVB $RMCS1(R2),$PREVO(R2)  ;SAVE WRITE OPERATION CODE 
756 043070 016262 000012 000034 MOV SCYL(R2), $PREVA+2(R2) + SAVE CYLINDER 
757 043076 016262 000010 000032 MOV SSEC (Re) « SPREVA(R2) SAVE SECTOR AND a ADDRESSES 
758 043104 105062 000024 CLRB SCODE (R2) sCHANGE WRITE DATA TO WRITE CHECK 
759 043110 112762 000151 000002 MOVB #WCKD,$COMND(R2) :CHANGE FUNCTION CODE TO WRITE CHE CK 
mt 043116 000207 2$: RTS PC sEXIT 
a : SPECIAL CONDITION ROUTINE 
765 043120 116403 000016 SC: M0VB RMAS (RG) RS ;READ ‘'RMAS'' 
746 043124 001012 BNE 2$ “BR IF ANY ‘ATA’ BITS SET 
767 043126 004037 044666 JSR RO,RD.RM :READ CONTROL AND STATUS REGISTER 
768 043132 000000 RMCS1 
769 043134 042364 C18 
770 043136 106126 ROLB (SP) + 1S ‘‘I€'‘'=1? 
771 043140 100403 BM! 1$ -YES, NO DRIVES TO CHECK 
772 043142 104001 EMT 1 “REPORT AN ILLEGAL INTERRUPT 
773 043144 004737 045374 JSR PC,SET.IE SET INTERRUPT ENABLE 
774 043150 000207 1$: RTS PC RE TURN 
775 043152 005046 2$: CLR -(SP) ZPROCESS, ALL DRIVES THAT HAVE 
776 043154 110316 MOVB R3, (SP) + AN =] 
777 045156 012703 000001 MOV #1,R3 
de 943162 005001 CLR a 
780 043164 030316 Sc3: BIT R3, (SP) sATA=1? 
a 043166 001005 BNE sc5 : YES 
783 043170 005201 SC4: INC R1 sMOVE TO THE NEXT DRIVE 
784 043172 106303 ASLB R3 
785 043174 001373 BNE $c3 :BR IF MORE TO CHECK? 
786 043176 005726 TST (SP) + *>CLEAN OFF THE STACK 
7 043209 000207 RTS PC :RETURN TO USER 
789 043202 105761 040056 SCS: TSTB DPINT(R1) : INITIALIZING THE DRIVE ? 
790 043206 001402 BEQ 1$ “BR IF NOT 
791 043210 000137 044116 JMP $(13 “PROCESS THE DRIVE 
792 043214 105761 040066 i$: TSTB DPRQS(R1) ;PORT REQUEST OUTSTANDING ? 
793 043220 001402 REQ 2$ IF NOT 
794 043222 000137 044116 JMP $(13 *START THE OUTSTANDING COMMAND 
795 043226 105761 040036 2$: TSTB DRVSTA(R1) * CHECK Las DRIVE STATUS 
796 043232 003023 BGT 4$ “BR IF ONLINE 
797 043234 105761 040104 TSTB ULDFLG(R1) UNLOAD itt PROGRESS? 
798 043240 003420 BLE 4$ 
799 043242 004737 046112 JSR PC,GETREQ GET DPS POIN TER 
800 043246 004737 045230 JSR PC, SVRH70 :SAVE THE RH/RM REGISTERS 
801 043252 004737 044046 JSR PC,SC12 “SAVE RMDS, RMER1, RMER2, AND 
802 “ALSO DO A DRIVE INIT (DRVINT) 
803 043256 105761 040036 TSTB DRVSTA(R1) :DID DRIVE COME ONLINE? 
804 043262 003414 BLE 5$ =NO 
805 043264 932737 040000 040016 BIT #BIT14,RMERRS  ;WAS THERE AN ERROR? 
806 043272 001000 BNE 3$ “BR IF ERROR 
810 0435274 0135705 040020 3$: MOV RMERRS+2,R5 :YES == PICKUP RMER1 AND 
811 043300 90C500 BR SC6A -GO PROCESS THE ERROR 
B12 043302 105761 040026 4%: TSTB DRVACT(R1) “DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
813 043306 001027 BNE SC6 “BR IF EITHER 
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PT ee oc ne ee re ee eee ee eee ee — 


RH/RM DRIVER INITIALIZATION CODE SEO 019 
B14 043310 004737 044046 JSR PC,SC12 ;SAVE RMDS, RMER1, RMERZ, AND RMMR2 
315 ALSO DO A‘ DRVINT 
Ble 043314 105761 040056 S$: TSTB. ~—s DPINT(R1) ‘TRYING TO INIT THE DRIVE ? 

817 043320 001323 BNE S04 :BR_IF YES, CHECK ON MORE DRIVES 
818 043322 105761 040036 TSTB. —s DRVSTACR1) “CHECK ON bRIvE' § STATUS 
B19 043326 100412 BMI 6$ BR IF UNSAFE 
B20 043330 032737 020000 040022 BIT #81T13,RMERRS*+4 :ADDRESS PLUG CHANGED ? 
B21 043336 001011 BNE 7$ “BR IF YES 
B25 043340 012746 000111 MOV #111,-(SP) “DRIVE CLEAR 
826 043344 004037 045042 JSR RO,WRT RM WRITE THE COMMAND INTO RMCS1 
827 043350 000000 RMCS1 “REGISTER INDEX 
B28 043352 043706 C8 “PARITY EXIT ADDRESS 
B29 043354 011605 6$: MOV (SP) RS “PICKUP (RMAS) BEFORE THE ERROR CALL 
B30 043356 104002 EMT 2 “REPORT THE UNEXPECTED ATTENTION 
831 043360 000703 BR SC4 "GO CHECK FOR MORE ATA‘S 
B32 043362 7$: 
043362 104005 EMT 5 ;REPORT THE ADDRESS PLUG CHANGE 
833 043364 000701 BR Sc4 “CHECK FOR MORE DRIVES 
835 043366 006301 SC6: ASL R1 ;SETUP TO ADDRESS WORDS 
836 043370 012761 177777 040120 MOV #-1,TIMER(R1) STOP THE TIMER 
837 043376 006201 ASR R1 “RESTORE THE DRIVE ADDRESS 
838 043400 004737 046112 JSR PC,GETREQ =GET THE DPB POINTER FROM THE QUEUE 
839 043404 010164 00010 MOV R1,RMCS2(R4)  : SELECT DRIVE 
840 043410 000137 043736 JMP Sci “PROCESS :HE SEARCH 
841 043414 004037 044666 JSR 20.RD.RM “READ THE RM'S STATUS REG. 
842 043420 000012 RMDS 
843 043422 043706 SC8 
B44 043424 011605 MOV (SP) ,R5 AND PUT IT IN RS 
845 043426 006126 ROL (SP)+ “WAS THERE AN ERROR? 
B46 043430 100407 BMI 1$ “BR IF ERROR 
B47 043432 105761 040026 TSTB —sDRVACT(R1) CHECK DRIVE'S STATE 
B48 043436 003137 BGT SC F DRIVE ACTIVE WITH ORDER 
849 043440 052762 100210 000016 BIS aBIT1S!BITO7!BITOS. 16(RD) ; INFORM USER OF ERROR RECOVER COMPLETION 
850 043446 000470 BR C7 
851 043450 004037 044666 1$: JSR RO,.RD.RM ;READ ERROR REGISTER #1 
852 043454 000014 RMER1 
853 043456 043706 SC8 
854 043460 012605 MOV (SP) +,R5 ;AND SAVE IT IN R5 
855 043462 737 045230 JSR PC, SVRH70 SAVE RH/RM REGISTERS 
856 043466 012746 000111 MOV #111,-(SP) “ISSUE A DRIVE CLEAR 
857 043472 004037 045042 JSR RO, WRT .RM 
858 043476 000 RMCS1 
859 043500 043706 Sc8 
861 043502 006105 SC6A: ROL R5 :WAS "'UNSAFE'' CONDITION =1? 
262 043504 1004 BM! 1$ :BR IF YES 
863 043506 005702 TST R2 * ANYTHING IN QUEUE ? 
864 043510 001447 BEQ SC7 “BR IF NOT 
865 043512 052762 100240 600016 BIS #81T15!BITO7!BITOS, 16(R2) : INFORM USER OF ERROR 
866 043520 000443 BR SC7 
867 043522 004037 044666 1$: JSR RO,RD.RM :READ DRIVE STATUS REG. #1 
868 043526 000012 RMD S 
869 043530 043706 Sc8 
870 043532 011605 MOV (SP) ,R5 SAVE, RMDS IN RS 
B71 043534 006126 ROL (SP) + STERR 
872 043536 100011 BPL 2$ “BR IF “NO“UNSAFE CLEARED 


a 


873 043540 
8 546 


911 043724 


112761 


CZRMUBO RMO5/$/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


177777 
045250 
110009 
010000 
177777 
000001 


035230 


043170 
100220 


040026 
046134 
040104 
040104 
040142 
040036 
000111 
045042 
043176 
040026 


046112 
042264 


045230 
040142 
040142 


177777 


047206 
043170 
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040056 MOVB gl Nile ye ig IS UNSAFE 
JSR PC,SVRH70 AVE RH/RM REGISTERS 
000016 of > 9 lade 'BIT12, 16(R3) : INFORM USER OF UNSAFE ERROR 
2$: BIT #BIT12,R5 s*MOL*’ = 1 ? 
BNE 3$ ;BR IF YES 
040026 MOVB #=-1,DRVACT(R1) . sACTIVE ERROR RECOVER 
040036 gg cere? ; ONLINE 
040120 nH -* aataicheh samme :START 15. SECOND TIMER 
JMP SC4 
000016 3$: BIS #B81T15'BIT07!B1T04,16(R2) : INFORM USER OF ERROR 
SC?7: CLRB DRVACT(R1) :DRIVE IS Pe 
JSR PC ,POPQUE * REMOVE THE QUEUE 
TSTB ULDFLG(R1) “ UNLOAD IN PROGRESS OR QUEUE? 
BGT 1% “BR IF NOT 
CLRB ULDFLG(R1) ;CLEAR UNLOAD FLAG 
000016 1$: MOVS ATABIT(R1), RMAS (R4) :;CLEAR ATTENTION BIT 
TSTB DRVSTA(R1) 31S THE DRIVE UNSAFE ? 
BM] 2$ “BR IF IT IS 
MOV #111,- (SP) :DRIVE CLEAR COMMAND 
JSR RO.WRT.RM “WRI TE THE COMMAND INTO RPCS1 
RMCS1 sREGISTER INDEX 
sc8 ;PARITY EXIT ADDRESS 
2$: JMP SC4 : CHECK FOR MORE DRIVES 
Sc8: TSTB DRVACTC(R1) +1 DRIVE IDLE? 
BEQ 1$ YES 
JSR PC ,GETREQ GET DPB POINTER 
JSR PC,CI7 *PROCESS THE PARITY ERROR 
- BR 2$ : TINUE 
JSR PC,C17B :PROCESS THE UNCORRECTABLE PARITY ERROR 
2$ JMP SC4 ;CHECK MORE DRIVES 
SC11: TSTB ULDFLG(R1) Pg) IN PROGRESS**? 
BLE 1$ F NO 
CLRB ULDFLG(R1) “CLEAR UNLOAD FLAG 
1$: CLRB DRVACT(R1) SET DRIVE IDLE 
040100 BITB ATABIT(R1).SRCHWI :DGING A SEARCH OPERATION FOR 
;AN 1/0 COMMAND? 
BNE 2$ :BR IF YES 
JSR PC ,POPQUE s REMOVE REQUEST FROM QUEUE 
000016 BIS #BiT07, 16(R2) 7SET * BIT 
TST SAVEFG : SAVE THE REGISTERS? 
BPL 2$ <BR IF NO 
JSR PC, SVRH70 :YES=-SAVE ALL OF THE RH/RM REG*S 
000016 2$: MOVB ATABIT(R1), RMAS (R4) sCLEAR ATTENTION BIT 
040100 BICB ATABIT(R1),SRCHWT = CLEAR IMPLIED SEEK SET 
ASL R1 ; WORD INDEX 
040120 MOV #=-1,TIMER(R1) + STOP CLOCK 
ASR R1 RESTORE R1 
JSR PC ,OPT START A REQUEST 
JMP SC4 :CHECK FOR MORE DRIVES 


SE EE ee ae ee om pers2e 
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939 044046 
940 044052 


998 044322 


01 
005723 


040400 


177777 
000019 
040142 
040056 


040056 
040400 


040036 


035230 


041206 
045170 


040102 
000001 


040120 
000002 
044344 
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040016 


$2034 


040120 


000016 


000016 


600000 


040120 


040103 


040120 


$Cle2: 


1$: 


$C13: 


1$: 


23: 


S$: 
3$: 


Re 8 


RMTMR: 


1$: 


2$: 


MOV 
MO 


R1,RMCS2(R4) :SELECT DRIVE 

RMDS (R4) RMERRS “SAVE THE FOUR REGISTERS THAT 
RMER1(R4) ,RMERRS+2 ‘WILL TELL US SOMETHING 
RMER2(R4), RMEARS ¢4 


RMMR2 (RG) , RMERRS +6 

RO,DRVINT ; INIT. THE pitt: OF THE DRIVE 
1$ : TAKE ERROR EXIT 

PC RETURN 

(SP) + :POP PC OFF OF THE STACK 

scs “PROCESS THE PARITY ERROR 

R1 ;SETUP TO ADDRESS WORDS 

#=1, TIMER(R1) ; STOP THE TIMER 


R1 

R1,RMCS2(R4) "SELECT He DRIVE 

ATABIT(R1) ,RMAS(R4) CLEAR THE ATTENTION BI? 
—- R1) FINITIALIZING THE DRIVE ? 


DPINT(R1) :CLEAR THE INIT INDICATOR 
RO,DRVINT :GO INIT THE DRIVE 

:DUMMY PARITY ERROR RE TURN 
DRVSTA(R1) :DRIVE ONLINE ? 
2$ :BR IF YES == START ORDER 
a con YE 2 gs FOR THE DRIVE 


PC,GETR 1 DPB ADDRESS 

#BIT15! BIT14, 16(R3) ; INFORM USER THAT DRIVE OFFLINE 
PC, SVRH70 :SAVE THE REGISTERS 
PC ,POPQUE :REMOVE THE QUEUE 


3$ 
#81T11,RMCS1(R4) ;DVA SET ? 
4$ :SET THEN CALL OPT 


R1 

iereeess en ;START 15. SECOND TIMER 
3$ 

PC OPT 7START THE PENDING REQUEST 


SC4 sPROCESS OTHER DRIVES 


7 RM TIMER ROUTINE 
ALL 


AT IME ,~(SP) 


PC .RMITMR ;CALL RMOS TIME ROUTINE 
ACTDRV :CHECK “‘ACTDRV & ACTSTR" 
4 IF NON ZERO EXIT 
#1 ,ACTSTR >SET "‘'ACTSTR'' 

:SAVE RO - RS 
Ri :START WITH DRIVE 0 
TIMER(R5) :IS ag as RUNNING? 
2(SP), TIMER(RS) ® COUNT THE INTERVAL 

:BR IF NO SOFTWARE TIMEOUT 
PC,ST0 ;CALL SOFTWARE TIMEQUT ROUTINE 
pe :MOVE TO NEXT DRIVE 

+ 


ee re re ee rere — ee mes wee ree —we. ne a ate 
-_— - ~ ——- ~ ——~ = «= 


sELASPED TIME IN MILLISECONDS ON THE STACK 


Seeeliiinememsenieees toe — = 


999 044324 


1016 044344 
1017 044346 
1018 044350 


1044 044450 


1048 044472 
1049 
1050 044474 


yee 044522 


1058 

bs 044524 
044530 

1081 044532 


cis athlmenea as 


022701 
362 


010146 


105761 
001003 
105761 
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000010 


040103 


040154 


040056 
040066 


040076 
040140 


6 
177777 


000016 
040142 
040056 
040066 


040056 
040066 
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000016 


040140 


CMP + Sail 


BGT 
zg: RESREG 
CLRB ACTSTR 
4$: MOV (SP) +, (SP) 
RTS PC 
: SOFTWARE TIMEOUT ROUTINE 
“NOTE: 
: OR 
“CALL: STO 
: MOV #DRVNUM,R1 
: JSR PC,STO 
: RETURN 
STO: MOV R1,=(SP) 


MOV R2,~ (SP) 
MOV R3,-(SP) 
MOV R4,~(SP) 


RMADR ,R4 
MOV R1,RMCS2(R4) 
JSR RO.RD.RM 


;OUT OF DRIVES? 


;BR IF NO 

RESTORE RO = R5 

;ZERO ACTIVE Aa TIMEOUT ROUTINE FLAG 
ate, 


THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
GREATER 


:DRIVE NUMBER 
LL 


;SAVE RI 
RG 
‘GET ADDRESS OF ‘RMCS1*’ 


“SELECT THE DRIVE 
“READ ‘DRIVE STATUS REG’’ 


S 
STO9 
TSTB (SP) + 31S ‘DRY'*= 
I $T02 BR IF YES 
STO1: TSTB oo aa : TRVING Me INTIALIZE THE DRIVE ? 
TSTB DPRQS(R1) SOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BNE STO2 :BR IF YES 
MOV TRNSWT ,R2 ;PICKUP TRANSFER WAIT QUEUE 
CMP R1,DTUW ; TRANSFER UNDERWAY ON THIS DRIVE? 
BEQ 1$ :BR IF YES 
JMP ‘i Ry DON’T BOTHER DRIVES 
JSR PC,GETREQ T DPB ADDRESS 
1$: BIS #81T15!BIT09, 16(h3) :SET THE ERROR FLAGS 
JSR PC ,.SVRH70 ;SAVE RH/RM REGISTERS 
CLRB DRVACT(R1) :DRIVE IS IDLE 
CLRB ULDFLG(R1) :CLEAR THE UNLOAD FLAG 
CLR TRNSWT ;CLEAR DPB ADDRESS 
MOV #-1 ,DTUW [CLEAR THE TRANSFER DRIVE # 
BR STO9 :DON'T BOTHER OTHER DRIVES 
STO2: MOVB RMAS (R4) ,R5 ;READ ATTENTION REG 
BITB ATABIT(R1) ,R5 eS ATTENTION FOR THIS DRIVE UP ? 
BNE STO3 s¥es 
TSTB DPINT(R1) : TRYING TO sig nS ye DRIVE ? 
E STC6 :BR_IF YES - DRIVE NO INE 
TSTB DPRQS(R1) ;OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
BNE STO? “BR IF YES = NO RESPONSE 10 REQUEST 
BR STO9 :OTHER WISE EXIT 
$103: TSTB DPINT(R1) SINITIALIZING THE DRIVE ? 
BNE 1$ :BR IF INIT PENDING 
TSTB DPROQS(R1) :PORT REQUEST PENDING ? 


SEQ 01945 
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RH/RM DRIVER INITIALIZATION CODE 
1062 


1066 
1067 
1068 
1069 
1070 


wy — 
oO © 
™N 
w 


SRLEGRAVLES 


and ened and and eon enh ead end nd 
CoNAUESWR =O 


044536 


944550 
044554 


044556 
044562 


R 
~ 
™N 
— 
* 


044760 


001446 
012765 
000442 


013737 


177777 
042364 


040056 
040036 
177777 
046112 


140000 


177777 
040066 
046112 
100004 


046016 
045230 


040152 


040154 
044712 


044714 
040154 
000010 
010000 


173206 
020000 


MACRO V04.00 


040120 


040120 


000016 


040120 


000016 


045030 
044712 


000002 


1$: 


$TO5: 


STO6: 


STO?: 


STO8: 
STO9: 
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ST09 :BR IF NOT 

#-1,TIMER(R3)  <:STOP THE TIMER 

STO9 “EXIT 

PC,C18 :GO HANDLE THE PARITY ERROR 
STOS 

DPINT(R1) :CLEAR THE INITIALIZE INDICATOR 
DRVSTA(R1) “SET UNIT OFFLINE 

#-i,TIMER(R3)  :STOP THE TIMER 

PC. GE TREQ “GET THE DPB ADDRESS 


; REQUEST IN QUEUE ? 

STO9 F NOT 

#B17T15!B1114, 16(R2) ; INFORM THE USER DRIVE NOT AVAILABLE 
STO8 FINISH 


#~-1, TIMER(R3) 
DPRQS(R1) 


;STOP THE TIMER 
;CLEAR PORT rial INDICATOR 


PC,GETREQ “GET DPB ADDRESS 
R2 : QUEUE ENTRY FOR DRIVE ? 
STO9 IF NONE 
#81715 18112, 16(RDD : INFORM USER OF PORT REQUEST ERROR 
PC,EMPTYQ sCLEAR THE QUEUE FOR THE DRIVE 
PC, SVRH70 “SAVE THE REGISTERS 
(SP) +,R4 “RESTORE R4 
(SP) +.R3 “RESTORE R3 
(SP) +_,R2 “RESTORE R2 
(SP) +,R1 “RESTORE R1 
PC RETURN 


sROUTINE TO READ A RH/RM REGISTER 


CALL 


1$: 


RO,RD.RM :GO READ A REGISTER 
:REG. INDEX FROM BASE 
;ERROR ADDRESS~--PROCESS ERROR STARTING 
sAT THIS ADDRESS 
;CONTENTS OF REG. IS ON THE STACK 
MCPEMX,RD.RM2 ;MAX. RETRYS ALLOWED 
(SP) ,~ (SP) a RO FOR RETURN 
RMADR,RD.ADR ;FORM THE DESIRED ADDRESS 


[USING THE BASE AND THE INDEX 
:READ THE DESIRED REGISTER OF THE RM DRIVE 
sADDRESS IS FORMED HERE 
;REG. CONTENTS PUT HERE 
;RETURN IT TO THE USER 
:PUT THE ADDRESS ON THE STACK 


a(PC)*, (PC) + 


0 
RD.WRD, ay 
R,~ (SP) 


#RMCS2, (SP) “FORM THE ADDRESS OF RM RMCS2 
#BIT12.a(SP)+ :CHECK THE "NED' 

RD.RM3 “BR IF DRIVE NON-EXISTENT 
@RMADR ,- (SP) “READ RMCS1 

#B1T13. (SP) :DID MCPE SET? 

1$ IF YES 

(SP)+,(RO)+ “ADJUST FOR RETURN 

RD.RM4 “EXIT 
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RH/RM DRIVER INITIALIZATION CODE 


ee ee errr. ee en ees cere o 


EE Se ee ee ee = ee 


044760 104 EMT 3 ;REPORT ‘MCPE'' ERROR 
1119 044762 005737 040140 TST = DTU DATA TRANSFER UNDERWAY? 
1120 044766 10040 BMI —s eS “NO 
1121 044770 032716 040000 BIT  #BIT14,(SP) ss; "TRE" = 1? 
1122 044774 001402 BEQ = $ :NO 
1123 044776 005726 TST = (SP) 4 SYES==CLEAN OFF THE STACK AND 
1124 045000 15 BR RD.RM3 STAKE THE FATAL ERROR EXIT 
1125 045002 052716 040000 2$: BIS #BITI4,(SP) CLEAR 'MCPE'’ BY SENDING A ‘I’ TO ‘‘TRE’’ 
1126 045006 000316 SWAB (SP) POSITION BEFORE WRITING 
1127 045010 013737 040154 045024 MOV —-RMADR, 38 ;FORM ADDRESS OF HIGH BYTE 
1128 045016 005237 045024 INC 3$ 
1129 045022 112637 MOVB (SP)+,a(PC)+ ;WRITE THE HIGH BYTE OF RMCS1 
1130 045024 000000 3$: . WORD ZADDRESS STORAGE 
1131 045026 005327 DEC = (PC) SEXCEEDED MAX, RETRYS 
1132 045030 000003 RD.RM2: .WORD 
1133 045032 002326 BGE RD. RMI ;BR_IF NO 
1134 045034 011000 RD.RM3: MOV -—- (RO) ,RO :FATAL ERROR EXIT 
1135 045036 012616 MOV —- (SP) +, (SP) 
1136 045040 000200 RD.RM4: RTS —-RO 
1138 ;ROUTINE TO WRITE A REGISTER 
1140 7 CALL 
1141 MOV _—DATA, =(SP) ;DATA TO BE LOADED ON THE STACK 
1142 JSR RO, WRT. RM SCALL THE ROUTINE TO LOAD(WRITE) THE REG. 
1143 : INDEX : INDEX OF THE REGISTER TO BE LOADED 
1144 ERRADR ADDRESS TO RETURN TO ON AN ERROR 
1145 ; RETURN ERROR FREE RETURN 
013737 040152 045214 WRT.RM: MOV = MCPEMX,WRT.R2 = ;MAX_RETRYS ALLOWED 
016637 000002 045130 MOV  2(SP),WRT.WD  ;SAVE THE WORD TO WRITE 
1149 012616 MoV (SP) +, (SP) “ADJUST THE STACK 
1150 012037 045132 MOV -—- (RO)+,WRT.AD GET INDEX OF REGISTER TO BE WRITTEN 
1151 001015 BNE “BR 1F NOT RUCSI 
1152 122737 000150 045130 (MPB = #150,WRT.wWD :1S_THE COMMAND FOR DATA TRANSFERS? 
1153 002411 | se. 8 :YES--DON'T GET THE OLD A16 & Al7, & PSEL 
1154 004037 044666 JSR_—- RO. RD. RM NO--~COMBINE A168A17, & PSEL WITH 
1155 0 RMCS1 THE COMMAND BEFORE SENDING IT TO 
1156 045104 045220 WRT .R3 :THE RH/RM 
1157 045106 000316 SWAB (SP) 
1158 045110 042716 177770 BIC  —-WAC7, (SP) 
1159 045114 112637 045131 MOVB (SP) +,WRT.wD+1 
1160 045120 663737 040154 045132 1$: _ ADD — RMADR,WRT.AD | ;FORM THE ADDRESS OF THE DISK REG. 
1161 045126 012737 WRT.R1: MOV (PC)+,a(PC)+ LOAD THE DESIRED REG 
1162 045130 WRT.WD: .WORD 0 WORD TO WRITE GOES HERE 
1163 045132 WRT.AD: .WORD 0 ZADDRESS IS FORMED HERE 
1164 045134 013746 040154 MOV RMADR,-(SP) —« PUT_THE ADDRESS ON THE STACK 
1165 045140 062716 000010 ADD —-HRMCS2,(SP) FORM THE ADDRESS OF RMCS2 
1166 045144 032736 010000 BIT  _#BIT12.a(SP)+ ;CHECK THE ‘NED’ BIT 
1167 045150 001023 BNE - WRT..R3 :BR IF DRIVE NON-EXISTENT 
1168 045152 004037 044666 JSR RO, RD RM :CHECK FOR PARITY ERROR ON WRITE 
1169 045156 000014 RMER1 
1170 045160 045220 WRT .R3 
1171 045162 032726 000010 BIT #BITD3, (SP)* ? 
1172 045166 001416 BEQ = WRT ;BR IF 'PAR=0 
1173 045170 016037 177776 045202 MOV “2 RO), 18 “PICKUP THE INDEX 
1174 045176 004037 044666 JSR RO, RD. RM "READ THE REG. 


o 


3 


co~n 
MNMNN-- 
AENIOKKNVO 


SSLEREASLSSSEVSEAEAVVSS 


122 366 
1224 045570 
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000022 
000010 


000046 
045310 


1$: .WORD. 0 :REG. INDEX 
WRT .R3 : RE TURN TO THIS ADDRESS ON ERROR 
eMT CG ;REPORT THE PARITY ON WRITE ERROR 
TST (SP) + “CLEAR OFF THE STACK 
DEC (PC) + : DECREMENT THE ERROR COUNT 
WRT.R2: .WORD 3 RETRY COUNTER 
BGE §- WRT.R1 :TRY_ AGAIN IF NOT FINISHED 
WRT.R3: MOV (RO) , RO STAKE THE ‘PARITY ON WRITE’’ ERROR EXIT 


BR ZEX 
WRT.R4: TST (RQ) + :ADJUST FOR ERROR FREE EXIT 


WRT.R5: RTS RO 
sROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 


* CALL 
: MOV —s#DPBNUM, R2 :DPB POINTER TO R2 
: JSR PC,SVRH70 “SAVE THE DRIVES REG'S 
SVRH70: SAVREG »SAVE RO = R5 

TST R2 “QUEUE ENTRY FOR THE DRIVE ? 

BEQ *BR IF NONE 

MOV RMADR,R4 

MOVB  (R2).RMCS2(R4) ;SELECT DRIVE 

MOV 14(R2),R3 “GET THE ERROR TABLE POINTER 

BEQ *EXIT IF NO ADDRESS 

CLR 3$ =COUNTER & POINTER 
1$: CMP 3$, #RMDB “REACHED THE BUFFER REGISTER ? 

BNE *BR IF NOT 

Bi] #B1TO7,.RMCS2(R4) ; OR" SET ? 

CLR (R3)+ ;STORE RMDB AS ZEROES 

BR 4$ : CONT INUE 
2$: JSR RO.RD.RM *READ THE SELECTED REGISTER 
3$: .WORD 0 “REGISTER INDEX 

5$ 7ERROR RETURN ADDRESS 

MOV (SP) +, (R3)+ ;STORE THE REGISTER CONTENTS 
4$: CMP 3$,#RMEC2 *REACHED THE END ? 

BEQ 6$ “BR IF YES 

ADD #2, 3% > INCREMENT THE REGISTER INDEX 

1$ *CONTINUE READING THE REGISTERS 

S$: JSR PC,CI7 “PROCESS THE UNCORRECTABLE PARITY ERROR 
6$: MOV $CPUOP.-(SP) | :CHECK THE CPU (RH) TYPE 

BIC #°(174000,(SP) :LEAVE THE CPU TYPE BITS 

CMP #30000,(SP)+ SEE IF RH70 

BNE 7$ IF NE, 

ADD RHEXT RG “POINT TO RMBAE 

MOV (RG) +, (R3)+ >STORE THE CONTENTS 

MOV (RG), (R3) “GET RM 
7$: RESREG >RESTORE RO - RS 

RTS PC sRETURN 


+? bles TO SET THE INTERRUPT WITHOUT GETTING A ‘'TRE*’ 
LL 


: MOV #DRVNUM ,R1 ;DRIVE NUMBER TO R1 
; JSR PC,SET.IE cE) “7 
; RETURN 


ER SE Sk ee me - . teres ee ~« 


SEG 0196 


er 
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1236 045374 010446 SET.IE: MOV R4,-(SP) sSAVE R4 
1237 045376 013704 940154 MOV RMADR,R4 “PICKUP ADDRESS OF RMCS1 
1238 045402’ 010164 000010 MOV R1,RMCS2(R4) “SELECT DRIVE 
1239 045406 011446 MOV (RZ) ,=(SP) *READ RMCS1 
1240 045410 052716 040000 . BIS Waitt, (SP) “SET THE ‘‘TRE'’ BIT OF THE WORD READ 
1241 045414 000316 SWAB —Sss (SP?) ADJUST FOR DATO 
1242 045416 112714 000100 MOVB  #BITO6, (R4) 7Sey 9G" 
1243 045422 032764 010000 000010 BIT #BITi2. RACS2(R4) IS ‘NED’ ‘=1? 
1244 045430 001002 BNE 1$ : ES-=cLEAR TRE’ 
1245 045432 005726 TST (SP) + ‘ CE EAN OFF THE STACK 
1246 045434 000402 BR 2$ 
1267 045436 112664 000001 1$: MOVB (SP)+,1(R4) :CLEAR ‘'TRE'’ 
1248 045442 012604 2$: MOV (SP) +,R4 “RESTORE R4 
1269 045444 000207 RTS PC “RETURN TO CALLER 
1251 sQUEUE COUNT 
1253 045446 000 QCNT:  .BYTE O :DRIVE 0 
1256 045447 000 .BYTE 0 “DRIVE 1 

045450 000 -BYTE O “DRIVE 2 

045451 000 BYTE 0 “DRIVE 3 

045452 000 .BYTE 0 “DRIVE 4 

045453 000 -BYTE 0 “DRIVE 5 

045454 000 ‘BYTE 0 “DRIVE 6 
‘aie 045455 oco -BYTE 0 “DRIVE 7 
1258 :QUEUE INPUT POINTERS 
1260 045456 045540 QINPT: .WORD aQpRVO - DRIVE 0 
1263 045460 045560 “WORD  QDRV1 “DRIVE 1 

045462 0456 WORD  QDRV2 “DRIVE 2 

045464 045620 “WORD  QDRV3 :DRIVE 3 

045466 045640 “WORD QDRV4 “DRIVE 4 

045470 045 “WORD  QDRV5 “DRIVE 5 

045472 045700 “WORD  OQDRV6 =DRIVE 6 
a 045474 045720 “WORD  QDRV7 =DRIVE 7 
1265 -QUEUE OUTPUT POINTERS 
1267 045476 045540 QOUTPT: .WORD  aQDRVO :DRIVE 0 
1270 045500 045560 .WORD QDRV1 “DRIVE 1 

045502 045600 “WORD  QDRV2 “DRIVE 2 

5504 045620 “WORD  QDRV3 :DRIVE 3 

045506 045640 “WORD  QDRV4 “DRIVE 4 

045510 045660 “WORD  QDRV5 “DRIVE 5 

045512 045700 “WORD  QDRV6 “DRIVE 6 
sai 045514 045720 “WORD  QDRV7 SDRIVE 7 
1272 045516 045540 QSTART: .WORD aprvo -DRIVE 0 START ADDRESS 
1273 045520 045560 OSTOP: .WORD QDRV1 “DRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
1274 045522 045600 “WORD  QDRV2 *STOP DRIVE 1--START DRIVE 2 
1275 045524 045620 “WORD QDRV3 “STOP DRIVE 2--START PRIVE 3 
1276 045526 045640 “WORD  QDRV4 “STOP DRIVE 3--START DRIVE 4 
1277 045530 045660 “WORD  QDRV5S *STOP DRIVE 4--START DRIVE 5 
1278 045532 045700 “WORD  QDRV6 “STOP DRIVE S--START DRIVE 6 
1279 045534 045720 “WORD  QDRV7 “STOP DRIVE 6--START DRIVE 7 
1280 045536 045740 “WORD  QTERM “STOP DRIVE 7 
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1281 
1666 :DRIVE REQUEST QUEUES 
1286 045540 QPRVO: .BikKw 10 

04,5560 QDRV1: .BLKW 10 

QDRV2: .BLKW 10 
045620 QDRV3: BLKW 10 
QDRV4: BLKW 10 

045660 QDRVS: .BLKW 10 

045700 QDRV6 BLKw 10 

045720 QDRV7: .BLKW 10 
‘<a? 045740 QTERM=. 
is :ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
1291 7 CALL 
1 ; JSR PC, CLRQUE 
1294 045740 194412 CLRQUE: SAVREG :SAVE RO = RS 
1295 045742 012702 045446 MOV #OCNT ,R2 :;ZERO THE QUEUE COUNTS 
1296 045746 005022 CLR (R2)+ sDRIVES O & 1 
1297 045750 005022 CLR (R2)+ ;DRIVES 2 & 3 
1298 045752 005022 CLR (R2) + sDRIVES 4 & 5 
1299 045754 005022 CLR (R2)+ sDRIVES 6 & 7 
1300 045756 012703 000010 MOV #8.,R3 sMOVE THE STARTING 
1301 045762 012701 045516 MOV #QSTART,R1 :ADDRESS OF THE QUEUE INTO 
1302 045766 012122 1$: MOV (R1)+,(R2)+ ;THE QUEUE INPUT POINTER 
1303 045770 005303 DEC R3 
1304 045772 001375 BNE 1$ 
1305 045774 012703 000010 MOV #8.,R3 :MOVE THE STARTING ADDRESS 
1306 046000 012701 045516 MOV #QSTART,R1 :OF THE QUEUE INTO THE 
1307 012122 2$: MOV (R1)+,(R2)+ sQUEVE OUTPUT POINTER 
1308 046006 005303 DEC R3 
1309 046010 001375 BNE 2$ 
1310 046012 104413 RESREG sRESTORE RO - R5 
Iai) 046014 000207 RTS PC 
3 
ietg sEMPTY THE QUEUE SPECIFIED BY R1 
1315 : CALL 
1316 : MOV DRVNUM,R1 sDRIVE NUMBER TO R1 
ut : JSR PC, EMPTY® 
1319 046016 105061 045446 EMPTYQ: CLRB QOCNT(R1) :CLEAR NUMBER OF ITEMS IN QUEUE 
1320 046022 006301 ASL R1 
1321 066024 016161 045456 045476 MOV QINPT(R1) ,QOUTPT(R1) >SET OUTPUT QUEUE POINTER=INPUT POINTER 
1322 046032 006201 ASR R1 
1as7 046034 000207 RTS PC 
a sROUTINE TO PUT A REQUEST IN QUEUE 
1327 : CALL 
1328 » MOV SDRVNUM,R1 ;DRIVE NUMBER 
1329 MOV #DPB,R2 :ADDRESS OF PARAMETER BLOCK 
1330 : JSR RO, DRVQUE :GO PUT REQUEST IN QUEUE 
1331 RETURN] ;RETURN HERE IF QUEUE IS FULL 
1332 RE TURN2 sRETURN HERE IF REQUEST IS IN QUEUE 
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€00010 
045446 
045456 

000002 
045456 


045516 


045446 


045476 


045446 


045476 
045476 
000002 
045476 


045516 
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045446 DRVQUE: CMPB 


045456 
045520 


045456 


045476 
045520 


045476 


2$: RTS 
sROUTINE TO 
CALL 


: MOV 
; JSR 


RETURN 


GE TREQ: ae 
1$: ASL 


2$: RTS 


—- 


QCNT(R1) 
R1 


R2,@QINPT(R1) 
#2,QINPT(R1) 
QINPT(R1), ,05 TOP (AT) 
ashen ila JQINPTiRI) 


; TAKE RETURN 2 
sRETURN TO USER 


GET THE ‘'DPB'’ ADDRESS OF NEXT REQUEST IN QUEUE 


(RO) + 
RO 


ADRVNUM ,R1 
PC,GETREQ 


Re 
QCNT(R1) 
2$ 


Ri 
petted cin 


PC 


SEG OQ 


21S QUEVE FULL? 
7BR IF YES=TAKE RETURN1 
; INCREMENT QUEUE COUNT 


¢PuT THIS REQUEST IN QUEUE 
UPDATE THE QUEUE POINTER 
;TIME TO RESET THE POINTER 


NO 
;YES--RESET POINTER 


;DRIVE NUMBER TO R1 | 
+0 GET THE REQUEST 

;R2="'DPB’* ADDRESS OF THE REQUEST 
:R2=0 IF NO REQUEST IN QUEUE 


BS THERE ANY REQUEST IN QUEUE? 


;PICKUP *'DPB’* PCINTER FOR THIS DRIVE 
;RETURN TO USER 


;ROUTINE TO ‘'POP’* THE REQUEST FROM QUEUE 


CALL 


POPQUE : 


1$: ASR 


DECB 


ADRVNUM ,R1 :DRIVE NUMBER TO R1 
PC ,POPQUE :CALL TO REMOVE REQUEST 

;R2=ADDRESS OF DPB REMOVED 
“S spa ;DECREMENT QUEUE COUNT 
@QOUTPT(R1),R2 ;GET THE ‘DPB*’ POINTER 
@QOUTPT (RI) ; REMOV E DPB ADDRESS FROM THE QUEUE 
#2 ,QOUTPT(R1) DATE THE QUEUE POINTER 
QOUTPT(R1) ,QSTOP(R1) ;TIME TO RESET THE POINTER? 


1$ ;NO--BR 
QSTART(R1) ,QOUTPT (RI) 


PC 


TO EXIT 
> YES--RESET THE POINTER 
;RETURN T9 USER 


CZRMUBO RMO5/3/2 PERF EXER 


DATA, & STATUS BLOCKS 


LO Er \qtenesaseees nen 
SLL LOS I ey =_ 
; LLL TT A rr rrr reenter ccteeeesesenemosiienmrees -sseenemtioneesseemeen 


CONTROL, 


NOUSWN OOO NOUR Wr -o 


18 


000001 
000002 


. SBTTL 


$TATUS 


ie 
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6 
5 


DATA, CONTROL, & STATUS BLOCKS 
;BLOCK LOCATION EQUATE STATEMENTS 


1 
SFMT +1 
SFMT +2 
SFMT +3 
SFMT+5 
SFMT +7 
SFMT+10 
SFMT+171 
SFMT+13 
SFMT+15 


sFMT,HCI,ECI OR OFFSET CODE 
; OPERATION CODE 

‘PORT ray & o coal Be: Al7 
;WORD C (e°S € 


‘BUFFER OADDR OR REGISTER gy 3 ren 
;SECTOR ADDRESS OR 1ST REG A 

; TRACK ADDRESS OF LAST REG ADDR 
:CYLINDER ADDR 

:REGISTER STORAGE (IF ERROR) 

:STATUS WORD (SET BY DRIVER) 


;DRIVE'S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 


$NE XT 
$F IRST 


; INDEX 


SFMT +17 


SWRDL +66 
SWRDL +70 


;WORD COUNT LENGTH (POSITIVE) 

;SECTOR SIZE FOR CURRENT OPERATION (256. OR 258.) 
:PRESENT COMMAND SELECTION CODE 
:WRITE DATA PACK INDICATOR 
;PREVIOUS COMMAND SELECTION CODE 
;PATTERN CODE 

;PREVIOUS ADDRESS~ TRK, SEC, CYL — WORD 3 
:END OF PASS DATA COUNT (DOUBLE WORD) 

:END OF PASS SEEK COUNT (DOUSLE WORD) 
:OPERATION COUNT (DOUBLE WORD) PER PASS 

;SEEK COUNT (DOUBLE WORD) 
;TOTAL WORDS WRITTEN OVERFLOW COUNT 

;TOTAL WORDS WRITTEN COUNT (DOUBLE WORD) 

; TOTAL WORDS READ OVERFLOW COUNT 

; TOTAL WORDS READ COUNT (DOUBLE WORD) 

; TOTAL ERRORS (ALL TYPES) COUNT 

ERROR COUNT 


RROR COUNT 

S "SKI" ERROR COUNT 

:PROG DETECTED MIS-POSITIONING ERROR COUNT 
;PASS COUNTER 
;OPERATION QUEUE °FAIRNESS* COUNT 
;HOLD WORD FOR “RELBUF* ROUTINE 


EQUATES TO THE NEXT OPERATION PARAMETERS 


SWRDL +72 


$NCODE+10 


sNEXT OPERATION CODE 

=NEXT PATTERN 

sNEXT SECTOR 

sNEXT TRACK 

Bet CYLINDER 
ARAMETER SELECTION 

FIRST OPERATION INI 


INDICATOR 
OICATOR 


EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 


$NCODE+12 
MAXCYL +2 
MAXCYL +4 
MAXCYL +6 


;MAXIMUM CYLINDER ADDRESS 
;MINIMUM CYLINDER ADDRESS 
;MAXIMUM TRACK ADDRESS 
sMINIMUM TRACK ADDRESS 


SEQ 0200 
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DATA, CONTROL, & STATUS BLOCKS SEQ 0201 
| 58 000134 MAXSEC = MAXCYL+10 :MAXIMUM SECTOR ADDRESS 
59 000136 MINSEC = MAXCYL+412 “MINIMUM SECTOR ADDRESS 
61 “PACK SERIAL NUMBER CONTAINED IN DEC144 FILE 
63 000140 SPSNL = MAXCYL414 :LSB'S OF SERIAL NUMBER (5 OCTAL DIGITS) 
64 000142 $PSNM = $PSNL+2 “MSB'S OF SERIAL NUMBER (5 OCTAL DIGITS) 
& a 
66 =DEC144 BAD SECTOR ADDRESS STORAGE AREA INDEX EQUATE 
8 000144 $BDSEC = $PSNL+4 “BAD SECTOR STORAGE TABLE PLUS TERMINATOR 
70 <DRIVE (MBA) SERIAL NUMBER AREA INDEX EQUATE 
/ 
72 002126 $MBASN = $BDSEC+<126.*8.>+2 =; DRIVE (MBA) SERIAL NUMBER 
7% =RH/RM REGISTER EQUATES 
7% 002136 SRMCS1 = SMBASN+10 :RM REGISTER STORAGE 
77 002140 SRMWC = $RMCS142 
78 002142 $RMBA = $RMCS1+4 
79 002144 $RMDA = $RMCS1+6 
80 002146 SRMCS2 = $RMCS1+10 
a1 002150 DS. = $RMCS1+12 
82 002152 $RMER1 = $RMCS1+14 
33 002154 $RMAS = $RMCS1+16 
84 002156 SRMLA = $RMCS1+20 
85 002160 = $RMCS1+22 
26 002162 $RMMR1 = $RMCS1+24 
5, 002164 SRMDT = $RMCS1+26 
88 002166 SRMSN “= $RMCS1+30 
89 002170 SRMOF = $RMCS1+32 
002172 SRMDC = $RMCS1+34 
91 002174 $RMHR = $RMCS1+36 
92 002176 SRMMR2 = $RMCS1+40 
93 002200 $RMER2 = $RMCS1+42 
94 002202 $RMECT = $RMCS1+44 
95 002204 SRMEC2 = $RMCS1+46 
97 002206 $RMBAE = $RMCS1+50 
28 002210 SRMCS3. = $RMCS14+52 
112 :BLOCK FOR DRIVE 0 
046202 000 000 BRIVEO: .BYTE 0, =DRIVE NUMBER 0 
046204 "BLKW OS 
046216 050340 "WORD  .+$RMCS1-$REG 
046220 "BLKB  $RMCS3-$REG 
-BLOCK FOR DRIVE 1 
050414 001 000 DRIVE1: .BYTE 1.0 <DRIVE NUMBER 1 
050416 "BLKW 5 
050430 052552 “WORD  .+$RMCS1-$REG 
650432 "BLKB $RMCS3-$REG 
“BLOCK FOR DRIVE 2 
052626 002 000 DRIVE2: .BYTE 2,0 “DRIVE NUMBER 2 


052630 -~BLKW 5 
052642 054764 «WORD .+$RMCS1-$REG 
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DATA, CONTROL, & STATUS BLOCKS SEG 0202 
052644 .BLKB $RMCS3=-$REG 
sBLOCK FOR oie 3 
055040 003 000 SRiVE3: .BYTE 3,0 sDRIVE NUMBER 3 
055042 -BLKW 5 
055054 057176 “WORD . *$RMCS1-$REG 
055056 -BLKB $RMCS3-$REG 
:BLOCK FOR DRIVE 4 
057252 004 000 DRIVE4: .BYTE 4,0 DRIVE NUMBER 4G 
057254 .BLKW 5 
057266 061410 . WORD . *$RMCS1=-$REG 
057270 -BLKB $RMCS3=-S$REG 
:BLOCK FOR DRIVE 5 
061464 005 0900 DRIVES: .BYTE 5.0 :DRIVE NUMBER 5 
061466 -BLKW 5 
061500 063622 . WORD . *$RMCS1-$REG 
061502 -BLKB $RMCS3-$REG 
sBLOCK FOR DRIVE 6 
063676 006 000 DRIVE6: .BYTE 6,0 ;DRIVE NUMBER 6 
063700 -BLKW 5 
063712 066034 . WORD . *$RMCS1-$REG 
063714 -BLKB $RMCS3-$REG 
:BLOCK FOR DRIVE 7 
066110 007 000 DRIVE7: .BYTE 7,0 sDRIVE NUMBER 7 
066112 , -BLKW 5 
066124 070246 . WORD .- *$RMCS1-$REG 
066126 -BLKB $SRMCS3-S$REG 
113 
‘ae : GENERAL PURPOSE PARAMETER BLOCK 
116 070322 000 GENDPB: .BYTE 0 :DRIVER PARAMETER BLOCK, DRIVE 4 
117 070323 000 -BYTE 0 sOFFSET VALUE OR FMT16, HCI OR ECI 
118 070324 000 -BYTE 0 ; COMMAND CODE 
119 070325 000 -BYTE 0 ;PSEL, A16 AND A17 
120 070326 177776 . WORD -2 D COUNT (NEG) 
121 070330 101066 . WORD CYLNDR “BUFFER ADDRESS 
122 070332 000 -BYTE 0 : SECTOR ADDRESS 
123 070333 -BYTE 0 ; TRACK ge 
124 070334 000000 . WORD 0 = CYLINDER ADDRESS 
125 070336 070342 . WORD GENREG “ADDRESS TO SAVE ALL RH/RM REG'S 
126 070540 000000 . WORD 0 »STATUS WORD 


sREGISTER STORAGE 


N 
, 


127 
128 070342 GENREG: .BLKW 


Se er + ee 6 ne eee ee eee ae 
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ERROR MESSAGES — 

1 .SBITL ERROR MESSAGES 

< Y70412 122 110 040 EMI:  .ASCIZ /RH_ CONTROLLER INTERRUPT OCCURRED (RMAS=0)/ 

- 970464 125 116 105 —M2:  .ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 

5 070522 115 101 123 —M3:  .ASCiZ /MASSBUS PARITY ERROR (MCPE=1) / 

6 070560 115 101 125 EM4: — .ASCIZ © /MASSBUS PARITY ERROR, (PAR=1)/ 

? 070615 101 104 104 EMS: —.ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 

8 070651 122 110 040 EM: .ASCIZ /RH CONTROLLER DIDN'T RESPOND [0 ADDRESSING/ 

9 070724 125 116 103 E—M10:  .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 

10 070767 106 101 124 EMIT: .ASCIZ  /FATAL MASSBUS PARITY ERROR/ 

11 071022 120 105 lee Emig: .ASCIZ_ /PERSISTENT DEVICE UNSAFE/ 

12 071053 117 120 105 €—M13: .ASCIZ /OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 

13 071125 104 122 111 E—M14: .ASC1Z. /DRIVE WENT OFFLINE/ 

14 071750 116 117 040 EM15: .ASCIZ /NO RESPONSE TO PORT REQUEST/ 

15 071204 110 105 101 —M20:  .ASCIZ /HEADER CRC ERROR/ 

16 071225 104 101 124 E—M21:  .ASCIZ /DATA CHECK ('DCK*) ERROR/ 

17 071256 127 122 111 EM22:  .ASCIZ /WRITE CHECK ERROR = DATA CHECK (‘DCK') SET/ 

18 071331 127 122 111 EM23:  .ASCIZ /WRITE CHECK ERROR = DATA CHECK ('DCK') NOT SET/ 
15 071410 110 105 101 £€M24:  .ASCIZ /HEADER READ ERROR ~ 'FMT' BIT DROPPED/ 

20 671456 110 105 1017 EM25: .ASCIZ /HEADER READ ERROR = HEADER COMPARE (*HCE') ERROR/ 
21 071537 106 117 122 EM26:  .ASCIZ /FORMAT ERROR ('FER')/ 

22 071564 110 105 101 EM27:  .ASCIZ /HEADER COMPARE ('HCE') ERROR/ 

235 071621 115 117 125  EM30: .ASCIZ /MISCELLANEOUS DRIVE ERROR/ 

24 071653 117 120 105 —M31:  .ASCIZ /OPERATION INCOMPLETE (‘OPI’) ERROR/ 

25 071716 104 122 111 —M32:  .ASCIZ /DRIVE TIMING ('DTE") 

26 071751 120 101 122 E23: -ASCIZ /PARITY ('PAR') ERROR AFTER OPERATION STARTED/ 

27 072026 127 122 1117 EM34: =.ASCIZ /WRITE CLOCK FAILURE ( "WCF*) ERROR/ 

28 072070 111 116 126 EM35:  .ASCIZ /INVALID ADDRESS ('IAE') ERROR/ 

29 072126 127 122 111 EM36: .ASCIZ /WRITE LOCK (‘WLE') ERROR/ 

30 072157 104 101 124 EM37:  .ASCIZ /DATA CHECK ('DCK') SET DURING WRITE CHECK COMMAND/ 
31 072241 122 110 040 EM40: «.ASCIZ /RH CONTROLLER OR UNIBUS TRANSFER ERROR/ 

32 072310 102 125 123 £M41:  .ASCIZ /BUS ADDRESS OR WORD COUNT INCORRECT/ 

33 072354 104 101 124— EM42:  .ASCIZ /DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/ 
34 072435 103 101 116 —M43:  .ASCIZ /CAN'T MATCH DATA READ WITH A PATTERN/ 

5 072502 105 122 122 EM44:  .ASCIZ /ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH CONTROLLER/ 
36 072577 105 103 103 EM45: .ASCIZ /ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 
37 072665 102 125 123 EM46:  .ASCIZ /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 

38 072737 123 105 105 £M50:  .ASCIZ /SEEK INCOMPLETE (*SKI') ERROR/ 
39 072775 120 122 117 —M51:  .ASCIZ /PROGRAM DETECTED POSITIONING ERROR/ 
40 073040 104 122 111 —M60: .ASCIZ /DRIVE UNSAFE ERROR/ 


| 
| 
| 
| 
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ERROR MESSAGES SFO 02704 
1 073063 122 115 101 DH1: -ASCIZ /RMAS/ 
2 073070 104 122 111 DH: .ASCIZ /DRIVE  RMDS RMER1 RMER2 RMMR2 RMAS/ 
3 073144 104 122 111 ~DH3: ASCIZ. /DRIVE REG ADR DATA/ 
4 073172 104 122 111 DH4: .ASCIZ. /DRIVE REG ADR GOOD BAD/ 
5 073231 044 122 115 DH6: -ASCIZ /$RMADR/ 
6 073240 104 122 126 DH14: . ASCII /DRV RMCS1 RMCS2 ~ RMDS RMER1 = / 
: ? 073304 122 115 115 -ASCIZ /RMMR2 RMERZ RMEC1 RMEC2/<CRLFOD 
8 073342 122 115 127 DH15: .ASCII /RMwWC RMBA RMDA RMAS RMLA / 
9 073412 122 115 104 .ASCIZ /RMDB RMMR1  RMDT/<CRLF> 
10 073440 122 115 123 DH16: .ASCIZ /RMSN RMOF RMDC RMHR STATUS/<CRLF > 
| 12 073510 122 115 102 geal ASCIZ /RMBAE  RMCS3/<CRLF> 
' 14 y 
) 


a 
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ERROR MESSAGES SEC 0205 


1 073530 001322 000000 DTI: -WORD  ATIN,O 
2 073534 001220 0640016 040020 DTe: "WORD DRIVE.RMERRS, RMERRS +2 , RMERRS+4,RMERRS+6,ATIN,( 
3073552 001220 044712 044714 DT3: “WORD DRIVE.RD.ADR.RD.W 
4 073562 001220 045132 045130 DT4: "WORD DRIVE.WRT.AD.WRT.WD.RD.WRD,O 
5 073574 001272 000000 DT6: "WORD $RMADR,O 
073600 002136 002146 002150 DT14: .WORD  $RMCS1.$RMCS2,$RMDS,$RMER1,$RMMRZ,$RMERZ, SRMEC1, SRMECZ,0 
? 073622 002140 002142 002144 DT15: .WORD $RMWC,$RMBA,$RMDA,$RMAS,$RMLA, SRMDB, $RMMR1, SRMDT,O 
8 073644 002166 002170 002172 DT16: .WORD  $RMSN.$RMOF .SRMDC,$RMHR,$TATUS,O 
10 073660 002206 062210 000000 D117:  .WORD $RMBAE,$RMCS3, 


io ee ene: eee a ere 0 eee ee 
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ERROR MESSAGES SEQ 0206 
120 122 123 LIN2C: .ASCIZ /PRSNT COMMAND= / 
2 073706 040 040 120 LIN2P: .ASCIZ / PREV COMMAND= / 
3 073727 052 040 105 LIN2S: .ASCIZ @* ERROR AT BAD TRACK/SECTOR@ 
4 073763 105 122 122 LINM3: .ASCIZ — AT C/ 
5 073776 040 124 000 T: ASCIZ / T 
6 074001 120 122 123 LINN3: .ASCIZ PPRSNT ADDR= C/ 
7 074017 123 000 S: ASCIZ / S/ 
& 074022 040 040 120 LINP3: .ASCIZ / PREV ADDR= C/ 
9 074041 123 124 101 LINS3: .ASCIZ /START CYL= / 
10 074055 040 040 105 LINENS: .ASCIZ / END CYL= / 
11 074071 040 040 101 LINAS: .ASCIZ / ACTUAL CYL= / 
12 074110 040 040 1246 LINT3: .ASCIZ / TRK= / 
13 074120 040 040 122 LINCA3S: .ASCIZ / RMDC= / 
14 074131 122 115 104 LINDA3: .ASCIZ /RMDA= / 
15 074140 122 115 102 LINB3: .ASCIZ = / 
16 074147 040 04 122 LINW3: .ASCIZ C= / 
17 074160 123 124 101 LINST3: .ASCiZ /START TRK= / 
18 074174 123 124 101 LINSS3: .ASCIZ /START SEC= / 
19 074210 102 125 106 LINM4: .ASCIZ /BUFFER + ogarfll 
20 C74226 040 127 LINS4: .ASCIZ / WRD CNT= / 
21 074242 040 040 107 LINX4: .ASCIZ / ACTUAL “es WRDS XFRD= / 
22 074274 107 117 117 LINDS5: .ASCIZ /GOOD DATA= / 
23 074310 040 040 102 LINBS: .ASCIZ / BAD DATA= 
24 0743525 040 127 LINPS5: .ASCIZ / WORD POS= / 
25 074342 110 105 101 LINS5: .ASCIZ /HEADER FROM ERROR SECTOR= / 
26 074375 122 115 105 LINEP5S: .ASCIZ /RMEC1= / 
27 074405 040 040 122 LINEOS: .ASCIZ / RMEC2= / 
28 074417 123 105 105 LINB6: .ASCIZ /SECTOR IS ECC ote / 
29 074452 123 105 1053 LINC6: .ASCIZ /SECTOR READ CORRECTLY / 
30 074501 103 117 122 LING6: .ASCIZ /CORRECTED ON / 
31 074517 040 040 122 LINR6: .ASCIZ / RETRIES/ 
32 074531 125 116 105 LINUO6: .ASCIZ /UNCORRECTABLE AFTER ’ 
33 074556 040 040 124 LIN7M: .ASCIZ / TOTAL MISPOS ERR= / 
37 074603 124 117 124 LIN7P: .ASCIZ /TOTAL SEEKS= / 
38 074621 040 040 124 LIN/7S: .ASCIZ / TUTAL SKI ERR= / 
39 074643 124 117 124 LIN7T: .ASCIZ /TOTAL ERRORS:/ 
40 074661 040 040 127 LINZOX: .ASCIZ / WOFL:/ 
41 074671 040 127 ‘22 LIN7X: .ASCIZ / WRDS WRITN:/ 
42 074706 040 122 LIN/ZOR: .ASCIZ / ROFL:/ 
43 074716 040 127 122 LIN7R: .ASCIZ / WRDS READ:/ 
44 074732 105 122 122 LIN8M: .ASCIZ /ERROR DURING RETRY/ 
45 074755 104 101 124 LIN9B: .ASCIZ ee COMPARISON ERRORS/ 
46 075004 040 040 040 LINSH: .ASCII GOOD BAD/<CRLF > 
47 075031 114 117 103 -ASCIZ AOC DATA DATA/<CRLF > 
48 075060 114 117 103 LIN9I: .ASCIZ /LOC DATA/<CRLF > 
49 075077 124 117 124 LIN9E: .ASCIZ /TOTAL COMPARE ERRORS= / 
50 075126 124 110 105 LIN9G: .ASCIZ /THE DATA COMPARED OK/<CRLF> 
51 075154 105 122 122 LINIOA: .ASCIZ /ERROR BURST BEGINS AT WORD / 
52 075210 040 117 116 LINIOB: .ASCIZ / IN DATA FIELD OF ERROR SECTOR/<CRLF> 
53 075250 105 122 122 LINIOC: .ASCII /ERROR WAS NOT IN THE DATA READ - /<CRLF> 
54 075312 105 103 193 eASCIZ /ECC CORRECTION CAN'T BE PERFORMED/ 
55 075354 105 103 103 LINIOH: .ASCII /ECC CORRECTION RESULTS/<CRLF> 
56 075403 101 104 104 -ASCI7 /ADDR BAD CORRECTED /<CRLF> 
57 075437 103 117 116 LINI1H: .ASCIZ fai OF ERROR SECTOR (REPORTED ABOVE)/<CRiF> 
58 075512 101 104 104 LINI1: .ASCIZ /ADDR HEADER/<CRLF > 
59 075535 101 104 104 LINI1A: .ASCIZ /ADDR DATA/<CRLF > 
60 075552 040 BLNKS4: .ASCII / / 
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FRROR MESSAGES 


6? 975553 040 BLNKS3: .ASCII / / 
62 075554 040 BLNKS2: <ASCII / / 
43975555 040 000 BLNKST: .ASCIZ / _/ 
64 075557, Ss 122,—=S'i«‘105'—'—i(ié«‘i SCLIN: WASC1Z © /RETRIEVED BY A RDHD COMMAND/ 
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3 075015 077 
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7 075623 011 000 

8 075625 1 122 
9 075633 040 117 
10 075644 040 117 
11 075654 040 116 
12 075676 040 101 
13 075724 040 116 
14 075745 040 116 
15 075762 040 116 
16 076001 040 125 
17 076011 040 114 
18 076026 200 125 
19 076044 122 115 
20 C76051 122 115 
21 076056 122 115 
22 076063 200 012 
23 076124 052 052 
24 076155 052 052 
25 076164 
26 076236 007 077 
27 076272 200 105 


39 076544 040 077 
40 076567 200 105 
41 076610 200 105 
42 076640 200 105 
43 076670 072 000 
£4 076672 116 117 
45 076677 040 077 
6 076720 200 106 
47 077000 200 1117 
48 077044 052 040 
49 077102 103 131 
50 077120 O12 
51 077146 052 040 
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NEN NWN EG NR BS SG BN BN I SB BI BS BS I SI II I III III INI 


Me 


/=/ 

<11> 
/DRIVE/ 

OF FLINE/ 


ONL INE / 

NOT BEING TESTED/ 
ALREADY BEING TESTED/ 
NOT AN RM05/3/2a 

NOT PRESENT/ 

NOT AVAILABLE/ 
UNSAFE / 

LOAD DEVICE/ 

— STATUS:/ 


~ A SN SS 


<CRLF><LF>/***** PERFORMANCE REPORT *****/ 


JRARRRAERERAKAKERKKEKE Ke / 
{xenxne/<CCRLFD 
<CRLF*/DRIVE SUMMARY, (OFLOW= 2,147,485,647. 
<07>/?F ATAL OR EXCESSIVE ERRORS/ 

rae OF PASS #/ 


ON 
iy at OF TEST / 


/ 
<CRLF>/*ee** DRIVE 5 aaeaccacle stead 
Wotentens DRIVE # 
lait *L* OR ‘P* CLOCK REQUIRED ON SYSTEM/<CRLF > 


/Y/ 

/./ 

/ ?CAN'T WRITE IN Ryn eal MODE /<CRLF> 
/ 2INVALID COMMAND/<CRL 

<CRLF>/ENTER COMMAND: 

<CRLF>/ENTER ADDRESS LIMITS: /<CRLF> 
<CRLF>/ENTER BAD SECTR ADRS:/<CRLF> 


Af 
/NONE / 

/ ?INVALID ENTRY/<CRLF> 

<CRLF>/FAILED TO RETRIEVE BAD SECTOR FILE (DECT44) ON / 
<CRLF>/INVALID FILE(DEC144) STRUCTURE ON ; 

/* BAD SECTOR TABLE IS FULL */<CRiF> 

/CYL,TRK,SEC= / | 
<CRLF><LF>/NO DRIVES ASSIGNED/<CRLF> 

/* NO ENTRIES */<CRLF> | 

<CRLF>/DEC144 AND MANUAL BAD SECTOR LIST/<CRLF> 
/* ALL CURRENT ENTRIES LOST */<CRLF> 

@PACK S/N: a 


@MBA S/N: a 
<CRLF>/CHANGE DRIVE PARAMETERS (L) N ? / 


)/<CRLF> 


SEQ 0208 


aPRIOV 
! TELETYPE "MESSAGES 


1 


Ney 


| 
| 
| 
| 
0 
2 0775 
0 
26 077624 
30 077664 
34 
5 
36 
38 


DONOULWR-OOWNOWURWN 
© 


Ofc FERP CAC 


077754 
077762 
077770 
077776 
100004 
100012 
100020 


100022 


077524 
0 


200 


curl cad ea cach elt cand) ea end ceil cen eee ctl eee aed ea cc eld 
NM-NONNNOD 2 AA OWN ON 


077754 
2 


MUO UNNI NM MAMI 1 © 


me ee eh el ee ee me ee ed el ed ed ed ed ed ed CD 
OOO —]NwO00 0-90-00 -Noul 
mT mek ON I) rk ek ed et et ot PI LW 


PMAAL RU VVUS.VY 


SSsoseesess 
aa a ns ts  s - 


SRRs Pata weePress 


ee ee ee ee ee ee ee ee eh hr ee) 


= MN 
Win 


046330 
04 


050542 


amar rot Vie MO eC? TANE UI 


;PARAMETER ENTRY TABLE 


PARLST: .WORD PAR1,8192.,WRDCNT 
“WORD  PAR2 439767, INTRVL 
"WORD PAR19,32767.,PASSES 
"WORD PAR3,15.,PATTERN 
"WORD PAR11,1,RANDWC 
"WORD  PAR14.7.RATIO 
"WORD PAR16.1.ENDING 
“WORD PAR20,1,MESSAGE 
“WORD PAR21.1.RANDOM 
"WORD PAR10.1.BADBLK 
“WORD 0 : TABLE TERMINATOR 
SLASH: .ASCIZ a/@ 
ASKPAR: .ASCIZ <CRLF>/CHANGE PARAMETERS (L) N ? / 
PAR1: .ASCIZ /WRDCNT / 
PAR2:  .ASCIZ /INTRVL / 
PAR3: .ASCIZ /PATTERN/ 
PAR4: eASCIZ CYL / 
PARS: .ASCIZ2 /MINCYL / 
PAR6:  .ASCIZ /MAXTRK / 
PAR7: .ASCIZ /MINTRK / 
PARB:  .ASCIZ SEC / 
PARS: .ASCIZ /MINSEC / 
PAR10: .ASCIZ K / 
PARI1: .ASCIZ / Cc / 
PAR14: .ASCIZ /RATIO / 
PAR15: .ASCIZ /WRICHK / 
PAR16: .ASCIZ /ENDING / 
PAR19: .ASCI2 /PASSES / 
PAR “ASCIZ /MESSAGE/ 
PAR21: .ASCIZ 
EVEN 
:PARAMETER TABLE POINTERS FOR ADDRESS LIMITS 
TABLE: .WORD TABLEO :PARAMETER TABLE FOR DRIVE 0 
“WORD TABLE? :PARAMETER TABLE FOR DRIVE 1 
“WORD TABLE [PARAMETER TABLE FOR DRIVE 2 
“WORD TABLE *PARAMETER TABLE FOR DRIVE 3 
“WORD TABLES “PARAMETER TABLE FOR DRIVE 4 
“WORD TABLES “PARAMETER TABLE FOR DRIVE 5 
“WORD  TABLE6 “PARAMETER TABLE FOR DRIVE 6 
“WORD TABLE? *PARAMETER TABLE FOR DRIVE 7 
; PARAMETER TABLE FOR ADDRESS LIMITS 
.WORD PARS,O,MINCYL+DRIVEO 
-WORD PAR4,O,MAXCYL*DRIVEO 
.WORD PAR7,0,MINTRK+DRI VEO 
-WORD PAR6,0,MAXTRK+DRIVEO 
"WORD PAR. 30. .MINSEC+DRIVEO 
“WORD PARB, 30. .MAXSEC+DR VE 
“WORD NATOR 
TABLE?1: .WORD PARS,O,MINCYL+DRIVE1 





ms ee ee 


SEQ 0209 


E-4 
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ee ee eee 8 tee 
LL OS ew 


eee em rem memes re eee ee ee ee ee 


TELETYPE MESSAGES SEQ 0210 

100030 077554 000000 050540 -WORD PARG,O,MAXCYL+DRIVE1 

100036 077604 000000 050546 "WORD PAR7.0.MINTRK+DRIVE1 

100044 077574 000000 050544 “WORD PAR6.0,MAXTRK+DRIVE1 

100052 077624 000036 050552 “WORD  PAR9.30.,MINSEC+DRIVE1 
100060 077614 000036 050550 "WORD PARB.30..MAXSEC+DRIVE1 
100066 "WORD 0 : TERMINATOR 
100070 077564 000000 052754 TABLE2: .WORD PARS,O,MINCYL+DRIVE 

100076 077554 000000 052752 "WORD PAR4G.O.MAXCYL+DRIVE 

100104 077604 000000 052760 "WORD PAR7.0.MINTRK+DRIVE2 
100112 077574 000000 052756 “WORD PAR6,0.MAXTRK+DRIVE2 
100120 077624 000036 052764 “WORD PARI, 30. ,MINSEC+DRIVE2 
100126 077614 000036 052762 “WORD  PARB. 30. ,MAXSEC+DRI VE? 
100134 “WORD 0 : TERMINATOR 
1001 77564 000000 055166 TABLE3: .WORD PARS,O,MINCYL+DRIVE3 
100144 077554 000000 055164 “WORD PAR4,O,MAXCYL+DRIVE3 
100152 077604 000000 055172 “WORD PAR7, 0, MINTRK+DRIVE3 
100160 077574 000000 055170 “WORD PAR6,0,MAXTRK+DRIVE3 
100166 077624 000036 055176 "WORD PAR9.30. ,MINSEC+DRIVE3 
100174 077614 000036 055174 “WORD PARS. 30. .MAXSEC+DRIVE3 
100202 : "WORD 0 : TERMINATOR 
100 077564 000000 057400 TABLE4: .WORD PARS,O,MINCYL+DRIVE4 
100212 077554 000000 057376 "WORD PAR4.O.MAXCYL+DRIVES 
100220 077604 000000 057404 “WORD PAR7.0.MINTRK+DRIVE4 
100226 077574 000000 057402 “WORD MAXTRK+DRIVE4 
100234 077624 000036 057410 “ WORD ARS. 30. MINSEC*DRI VES 
100242 077614 000036 0574 “ WORD PAAB. 30. ,MAXSEC *DRIVE4 
100250 “WORD ; TERMINATOR 
100252 077564 000000 061612 TABLES: .WORD PARS . O.MINCYL+DRIVES 
100260 077554 000000 061610 “WORD PARG,O,MAXCYL+DRIVES 
100266 077 000000 061616 "WORD PAR7.O.MINTRK+DRIVE5 
100274 077574 000000 061614 "WORD  PAR6, TRK+DRIVES 
100302 077624 000036 061622 “WORD PARY, 30. .MINSEC+DRIVES 
100310 077614 000036 061620 “WORD PARB. 30. .MAXSEC+DRIVES 
100316 “WORD 0 ; TERMINATOR 
100320 077 000000 064024 TABLE6: .WORD PARS,O,MINCYL+DRIVE6 
100326 077554 000000 964022 “WORD PARG,O,MAXCYL+DRIVE6 
100334 077 000000 064030 “WORD PAR7.0.MINTRK+DRIVE6 
100342 077574 090000 064026 "WORD  PAR6,O.MAXTRK+DRIVE6 
100350 077624 000036 064034 "WORD = PARS, OO ANINSECDRIVEG 
100356 077614 000036 064032 “WORD PARB. 30. ,MAXSEC+DRIVE6 

100 “WORD 0 : TERMINATOR 
100366 077564 000000 066236 TABLE7: .WORD PARS,O,MINCYL+DRIVE7 
100374 077554 000000 066234 “ WORD "0 .MAXCYL+DRIVE7 
100402 077 000000 066242 -WORD PAR7,0,MINTRK*DRIVE7 
100410 077574 000000 066240 “WORD PAR6,0,MAXTRK+DRIVE7 
100416 077624 000036 066246 "WORD PAR9., 30. ,MINSEC+DRIVE7 
100424 077614 000036 066244 "WORD PARB. 30. .MAXSEC+DRIVE7 
100432 "WORD 0 : TERMINATOR 


CZ7RMUBO RMOS/3/2 PERF EXER 
ROUTINE TO SIZE MEMORY 


re ee at oo ree eR ee ene gag eee es One er- re ee eee ee ee 
LL 
. Geter 
es ~- 


' 
ee 


4 
' 


D1 
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.SBTTL ROUTINE TO SIZE MEMORY 


TARA RERREBRBBRABRERASLESASSARLESRRE RES RRR RR RRR RRR RRR RR RR RRR RRS RSS ESSA SB , 


= *CALL: 


:* JSR PC,$SIZE 


:* RETURN 
>*$LSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


$SIZE: MOV RO,~(SP) 
MO 


: 3 SAVE RO ON THE STACK 
;SAVE R1 ON THE STACK 
 TSAVE MEMORY ERROR VECTOR PS & PC 


MOV a#116,-(SP) 
000114 MOV #116,a8114 :: IGNORE PARITY ERRORS WHILE SIZING 
000116 MOV #RT1,aH#116 
MOV QHERRVEC,-(SP) SAVE PRESENT ERROR VECTOR PS & PC 
MOV QHERRVEC+2,-(SP) 
MOV SP,RO + SAVE THE STACK POINTER 
::SET THE ERRVEC PS TO THE’ PRESENT PS 
TRAP ::PUSH OLD PSW AND PC ON STACK 
mov (SP) +, aWERRVEC+2° > SAVE THE PSW IN @#ERRVEC+2 
000004 MOV #2$,QMERRVEC :;SET FOR TIMEOU 
MOV #20000,R1 *: FIRST ADDRESS 
1$: TST (R17) >: TEST THIS ADDRESS 
TST (R1)+ i: STEP TO NEXT ADDRESS 
BR 1$ * TRY ANOTHER 
2$: Sua #2.R1 ; DROP BACK 
MOV STORE THE STACK 


RTS 
$LSTAD: .WORD 0 


RO,SP RE 
MOV (SP)+, aWERRVEC+2° "| RESTORE ERROR VECTOR 
@#ERRVE 


: sRESTORE MEMORY ERROR VECTOR 
2 LAST ADDRESS 

RESTORE R1 
+ ; RESTORE RO 


7;CONTAINS THE LAST ADDRESS 


UE Os es me ee ee mw me a od — — = 


SEQ 0211 


ONAOVUSWNH-O OONA NRW 


et etd ed ed td od 3 


19 


a re 


CZ7RMUBO RMOS/3/2 PERF EXER 
BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS 


001336 


075554 


001340 
100756 
001274 
100747 
075554 


001340 
100756 


001272 
040754 
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103 
126 


.SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS 
tee ROUTINE IS USED TO INSURE THE BUS ADDRESS OF THE RH/RM 


SETUP 


FOR THE PROPER ADDRESS. 


: FROM THE TTY IF REQUIRED. 


“NOTE : 
CALL: 


BUSADR : 


1$: 


2$: 


3$: 


MRMCS1: 
MRMVEC: 


JSR PC ,BUSADR 


IT WILL ALSO READ THE ADDRESS 


THIS ROUTINE DESTROYS RO=R4 


RE TURN 
TST CHGADR s INPUT FROM TTY REQUESTED? 
BGE | :NO==BRAN 
CLR CHGADR i VES“=CLEAR THE REQUEST FLAG 
TYPE  ,$CRLF “TYPE A 
INC i s ERARST TIME THRU ? 
BEQ 1$ :BR IF YES 
TYPE =, $CRLF CRLF 
CLR CFLAG “CLEAR CONTROL C FLAG 
V #SRMADR ,RO ;FIRST ADDRESS 
TYPE § ,MRMCS1 :RMCS1= 
MOV (RO) ,=(SP) “PRESENT RMCS1 ADDRESS 
TYPOC iT YPE IT 
TYPE §_,BLNKS2 TYPE 2 BLANKS 
RDLIN [GET THE ENT 
MOV (SP)+,R1 ZADDRESS OF ASCII TEXT 
TST CFLAG [WAS IT CONTROL C ? 
BNE :BR IF YES 
JSR R9.CK..NUM ZENTER AND STORE THE NEW ADDRESS 
MOV #SRMVEC RO :VECTOR ADDRESS 
TYPE §,MRMVEC 
MOV (RO) ,~(SP) ‘ PRESENT RH/RM VECTOR ADDRESS ON THE STACK 
TYPOC iT YPE IT 


TYPE -BLNKS2 


YPE 2 
READ T 


RDLIN HE ENT 
MOV (SP)+,R1 SASCII TEXT ADDRESS 
ua CFLAG sWAS IT CONTROL C ? 


7BR_IF YES 
ZENTER AND STORE NEW ADDRESS 
rt EXIT 


BR 2$ 

MOV #SRMADR ,RO SFIRST ADDRESS OF NEW PARAMETERS 

MOV #RMADR ,R1 :FIRST ADDRESS OF WHERE TO PUT THEM 
MOV (RO) +, (R1)+ ADDRESS 

MOV (RO) +, (R1)+ “VECTOR ADDRESS 

RTS PC RETURN 

-ASCIZ @RMCS1=a 


-ASCIZ @RMVEC=a 


a ER a Ne en me ek 


SEQ 0212 


Ee ee ee ee EES EN S&S eR ee 
- - . RED | fete ERennen enters ren eeeeereeesarnerinmemetmmeenrnit geeeeeensee= or snsreeeetsestageer aeeuetesst meter _ — _ 


ON he we niet 
WOONAUE WHO DO VOL Wr 


010246 
01 


102072 
000200 


CZRMUBO RMO5/5/2 PERF EXER 
“K.NUM = CHECK NUMBER (OCTAL) 


000006 


000060 
000067 


177770 


FY 
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.SBTTL CK.NUM = CHECK NUMBER (OCTAL) 


:THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
S AN OCTAL NUMBER IN R2 


1$: 


23: 
3$: 


4$: 
5$: 


CYLNDR: 


:AND F FORM 


RTS 
-BLKW 


. END 


200 


LL LLL LEE LLL LEE ET EE! COE Ne CE TS A LE NN mm 


R5,CK.N 


R2,~(SP) 

R3,-(SP) 

R4,-(SP) 
R3 


sADDRESS TO PLACE NEW NUMBER 
ZADDRESS OF ASCIZ STRING 
5 CHANGED 


:R 
:ERROR EXIT 
NORMA 


; LAR 
7 YES 


LOOPING BACK 
® CHECK 5 ata 
;FINAL VALUE= 0 
7 YES, THEN NOT REPLACE THE ORIGINAL VALUE 
eo Fs THE ORIGINAL VALUE 
;ADJUST FOR NORMAL RETURN 
RESTORE 
sRESTORE R3 
:RESTORE R2 


;ONE SECTOR WORD CTR MAX SIZE 


L EXIT 
; SAVE R 


AVE R 
R 


VE R4 
sMAX OCTAL DIGITS IN THE NUMBER 
CTAL VALUE 


NAL 
GET CURRENT POINTED BYTE 
:BRANCH, IF TERMINATOR DETECTED 
HAN ASCII-O ? 


LER 


SHIFT 


; ONE 


SOCTAL 
3E 


ERROR EX 


LEF; 


DIGIT 


RROR IF CARRY BIT wad 
‘ APPENDIN HIGHER 


BITS 
ING CURRENT DIGIT TO NUMBER 


:DECREMENT BYTE COUNT 
;BRANCH -IF LAST BYTE 


SEQ O01 4 


‘ G 1 
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SYMBOL TABLE SEO 0214 
ABASE = 176700 ASGN6 026254 BITS = 000040 CMSTR2 013602 DRIVE3 055040 
031134 ASGN? 026266 BIT6 = 000100 CMTRK 001575 DRIVES 057252 
ACDW1 = 000000 ASKPAR 077470 BIT7 = ad COLON 076670 DRIVES 061464 
ACDW2 = 000000 ASNERR 031024 BIT8 = 000400 COMMA 075617 DRIVE6 063676 
ACK = 000123 ASNLST 001530 BIT9 = 001000 COMTBL Tie 9 DRIVE7 066110 
CPUOP= 000000 ASNMSG 031050 BLKADR 002044 CPSAVE 035124 DRNUM 076372 
| ACTORV 040102 - ASSIGN 025624 BLNKS1 075555 CR = 000015 DROP 031054 
ACTSTR 040103 ASWREG= 000000 BLNKS2 075554 CRLF = 000200 DROPNG 076236 
ADDWO = 000000 TA = 100000 BLNKS3 075553 TRAP 034474 DRO = 004000 
ADDW1 = 000000 ATABIT 040142 BLNKS4 075552 CYLIMT 001422 DRVACT 040026 
ADDW10= OO00000 ATESTN= 000000 BPTVEC= 000014 CYLNDR 101066 DRVCLR= 000111 
ADDw11= 000000 ATTN 001322 BSE = 100000 DASH 075621 DRVER 011256 
12= 000000 ATO = 00 BUFTBL 001642 DATAPK 026552 DRVINT 040400 
ADDW13= 000000 AT? = 000002 BUSADR 100566 DATAO 002472 DRVPAR 001430 
ADDW14= 000000 AT2 = 000004 CFLAG 001340 TA1 002532 DRVPRM 027020 
ADDW15= OQO0000 AT3 = 000010 CHGADR 001336 DATA1N 003172 DRVQUE 046036 
ADDW2 = 000000 AT4 = 000020 CHKWC 3=s-:« O20 316 DATA11 00323 DRYSTA 040036 
ADDW3 = OOCOCO ATS = 000040 C11 041434 DATAT 003272 DRVTYP 040046 
ADDW4 = 000000 AT6 = 000100 C13 041542 DATA 003532 DRY = 000200 
ADDWS = C00000 AT? = Q00200 C14 041650 DATA14 003372 DSWR = 177570 
ADDW6 = 000000 AUNIT = 000000 C15 042226 DATA15 003432 DTE = 010000 
ADDW7 = 000000 AUSWR = 00000 C16 042250 nie 002572 DFEER 012050 
ADDW8 = 000000 AUTLST 031662 CI7 042264 DAT 002632 DTUW 040140 
ADDWS = 009000 AVAIL C17B 042306 DATAS 002672 DTOO = 000001 
ADEVCT= 003600 AVECT1= 000254 c18 23 DATAS 002732 D101 = 000002 
ADEVe = 000000 AVECT2= CKBUS Sealy DATA6 002772 DT02 = 000004 
AENV = 000000 A1l6é = 000400 CKCLK 023344 DATA? 003032 DT03 = 000010 
AENVM = 000000 A17 = 0010 CKCLK1 023440 DATAB 003072 DT04 = 000020 
AFATAL= 000000 BADBLK 001476 CKCLK2 023510 DATA9 003132 DTOS = 000040 
ALOST 077232 BADENT 076677 CKCLK3 023542 DCK =1 DT06 = 000100 
AMADR1= 000000 - BADSEC 001342 C 013176 DCKE 010156 DTO07 = 000200 
AMADR2= 000000 BADTMO 003552 CKFMT 011310 DCKER1 010274 DTOB = 
AMADR3= 000000 BAI = 0 CKHCE 011464 DDI = 177570 DT1 073530 
AMADR4= 000000 BEGCOD 001502 CKLMTS 020164 DEASGN 026330 D114 
AMAMS1= 000000 BEGPAT KSWR = 104407 DEASSG 076341 DT15 073622 
AMAMS2= 000000 GW 001504 CK.CHR 032720 DH1 306 DT16 073644 
AMAMS3= 000000 BITO = 1 CK.DEC 32672 DH14 073240 D117 7 
= 000000 BITOO = 000001 K.DIG 032772 DH15 073342 DT2 
AMSGAD= 000000 BITO1 = 000002 K. 00756 DH16 073440 DT3 073552 
AMSGLG= 000000 BITO2 = CK.OCT 032644 DH17 073510 DT4 
AMSGTY= 000000 B1T03 = 000010 CLKFLG 312 DH2 073070 DT6 073574 
AMTYP1= C0O0000 BIT04 = 000020 CLOCK 025074 DH3 073144 DUNIT 0QO1 
AMTYP2= O00000 BITOS = 000040 CLR = 0 DH4 073172 DVA = 
AMTYP3= 000000 BIT06 = 000100 CLRDPB 026602 DH6 73231 DVC = 
AMTYP4= 000000 BITO7 = 000200 CLRQUE 0465740 DISPLA 001156 ECBADO 001412 
= 001000 BITO8 = 00 CMCNT 001370 DISPLY= 104414 EC 
APASS = 000000 BIT = 001000 CMCYL 001372 DISPRE 000174 ECBIT 001376 
APRIOR= 000000 BIT1 = 2 CMDAT 013614 DLT = | 0 ECC 
APTCSU= 000040 BIT10 = 002000 CMHED 013540 D 007634 ECCX 015344 
APTENV= 000001 BIT11 = 004000 CMPAR 013354 DPE 10 ECCI 015210 
APTSIZ= 000200 BIT12 = 010000 CMPARD 013372 DPINT 040056 ECC2 1534 
APTSPO= 0001 B1T13 = 020000 CMPLMT 001446 DPR = 000400 D 001410 
ASGND 076411 BIT14 = 040000 CMPRES 020700 DPRQS 040066 ECGD1 001416 
ASGN1 025722 BIT15 = 100000 CMPRT 014174 DRIVE = 001220 H = 
ASGNZ2 026004 BIT2 = 000004 CMPRX 014166 DRIVEO 046202 EC] = 004000 
ASGN3S 026102 BIT3 = 000010 CMSEC 001374 DRIVE? 050414 ECMSKO 001402 
ASGNG 026252 BIT4 = 000020 CMSTR 013456 DRIVE2 052626 ECMSK1 001404 


eee eee ee een eee rere ee a a Se Ee SSS es ess Ssh 
aa ee 








oe eR eS ee ee ee ne me me ee ee . 


rrr errr ete te eee ster ee eee eee — — = 
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SYMBOL T SEQ 0215 
ECSEC 001400 ERCTR 001364 INVLD 076544 LINSS 074226 MERR1 076720 
 ECWRD 0014 ERPRC1 007254 IOTVEC= 000020 LINSS 074342 MERR2 077000 
FCWRDI 601414 ERPROC 007240 IR = 000100 LINT3 074110 MESSAG 001472 
EMPTYQ 046016 ERR = 040000 ISR 042614 LINUO6 074531 MINCYL= 000126 
EMTVEC= 30 ERROR = 104000 Ivc = 010000 LINWS 074147 MINSEC= 0901 36 
” 070412 ERRVEC= 000004 KSR 025240 LINX4 074242 MINTRK= 000132 
EM10 70724 FACTOR 016400 KSR1 025246 LINXS 075557 MINUTE 001346 
EM11 070767 FAIRNS 001332 LBC ~=— =_: 002000 LIN10A 075154 MNTBL 002112 
EM12 071022 FALPAR 007420 LBT = 002000 LIN10B 075210 = 020000 
EM13. 071053 FALPR1 007434 F = 000012 LINIOC 07550 L = 010000 
Em14Z 071125 FER = 000020 LIMIT 001366 LIN10OH 075354 MRMCS1 100740 
EMIS 071150 FILBUF 016772 LINAS 074071 LINIT 075512 EC 100747 
E 64 FILLZ 032334 LINB3 074140 LIN11A 07553 MSFULL 077044 
EM20 =: 071204 FILLO 032442 LINBS 074310 LIN11H_ 075437 MSGCTS 077102 
EM21 =: 071225 FMTER 012244 LINB6. 074417 LIN2ZC 073666 MSGFOR 076334 
EM22 071256 FMT16 = 010 LINCA3 074120 LIN2P 073706 MSGON 076311 
EM23 ss 071331 FRSTER 001356 LINC6. 074452 LIN2S 073727 MSPRM 077315 
EM24 071410 FO = 0000 LINDA3 074131 LIN3.1 022032 076501 
EM25 071456 F1 = 000004 LINDEC 023176 LIN3.3 022140 MxF = 001 
EM26 071537 F2 = 000010 LINDS 074274 LIN3.4 022172 MX 0164 
EM27 —«- 071564 F3 = 0000 INEN3 074055 LIN6.1 022642 M.DPID 031756 
EM2 070522 F4 = 0000 LINEOS 07440 LIN6.2 O22 M.DP40 032014 
EM30. =: 071621 GENDPB 070322 LINEPS 074375 LIN7M 074556 M.0P41 03 
EM3i 071653 GENPAR 017470 LINE? 021046 LINZ 74706 M.DP42 0 
EM32—s«O71716 GENREG 070342 LINE2 021126 LIN70X 074661 M.DP44 032112 
EM33. 0s 071751 GETADR 027520 LINECA 021276 LI 4603 M.DPSO 032124 
EM34 072026 GETBUF 016402 LINE2B 021314 LIN7R 074716 0764 
EM35 072070 GETID 027420 LINES 66 LIN7S 074621 = 01 
EM36 072126 GETLMT 027346 LINE3A 021574 LIN7T 074643 NEDCLK 076422 
EM37 . 072157 GETPAT 020122 LINE3B LIN7X 074671 NEM = 004 
EM, 60 GETREG= 0001 LINESC 021614 LINSM 074732 NEWASN 026530 
EM40 3=—- 072241 GETREM 031 LINE3D 021624 LINSB 074755 NEWUNT 001554 
EM41 072310 GETREQ 046112 LINESE 021672 LINSE 075077 NODRVS 077 
EM42 072354 : LINESF 021760 LINSG 075126 NOENTY 077146 
EM43 072435 GODRIV 017050 LINES 0222 LINSH 075 NOMTCH 012724 
EM44 072502 GTSWR = 1 LINES 022326 LIN9SI 075060 : 076672 
EM45 072577 HCE = 0002 LINESA 022470 005320 NOTAVL 075762 
EM46 072665 HCEER 012306 LINESB 022536 LODEV 076011 NOTPRS 075745 
EMS 070615 HCI = 002 LINE6 022600 LODPAR 0 NOTRM 075724 
EMSO —-: 072737 HCRC = LINE6A 022612 LSC = 004 NOT SAF 

EMS1 =: 072775 HCRCER 011132 LINE6B 022620 LSTAD 001 = 

EM6 —«- 070651 LINE6C 022626 LSTHDR 077166 OFFCOD 002414 
EM6O 304 HT == LINE6D 022634 MAIN OFFDIR= 000001 
ENDCMP 014450 HZ 001314 7 022710 MAINDA 006170 : 1 
ENDCON 001434 IAE = 002000 NE7A 023040 MAIN1 306 OFFSET= 000115 
ENDING 001 IAEER 164 LINES 023132 MAINZ 24 OFFST 015766 
ENDPAS 076272 IBSAVE 035126 I 074501 MANTER 030124 OFLIN 007532 
E 102072 IDLE 7006 LINM3 073763 1326 OFMSGO 002312 
ENDSEK 001440 IE = 000100 LINMG 074210 014516 OF MSG1 
ENDTST 076316 ILF = 000001 LINN3 4001 MAXCYL= 000124 MSG2 002370 
ENTADR 0 ILR = 2 LINOCT 023144 001444 OF MTBL 
ENTCOM 076567 INCHRD . 024630 LINPS 074022 MAXSEC= 000134 003374 
ENTLMT 076610 INCMIS 024700 LINPS 074325 MAXTRK= 000130 ONESEC 001352 
ENTPR 00 INCSKI 026654 LINR6_ 074517 MBASN 077303 OPE = 

FOP1 031214 INCSOF 024604 LINSS3 074174 MCPE = 020000 OPI = 0 
EOP2 031240 INCTOT 024724 LINST3 074160 MCPEMX 040152 OPIER 011744 
EQUAL 075615 INTRVL 001452 LINS3 074041 MDPE = 000400 OPIER1 012010 

| 

re 


EE er) Se es ee CO me ee eee Oe - ewe ee ee 
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SYMBOL TABLE SEQ 0216 
T 41206 PSEL = 002000 RMAS = 000016 Sc8 043706 $Ww0O6 = 000100 
OPTBL 002072 PSW = 177776 RMBA = 000004 SDETAL 023674 SWwO7 = 000200 
= 000200 PUNSAF 007336 E = 000050 SEARCH= 000131 SWwO8 = 000400 
 ORDERQ 001506 PWRFLG 037616 1 = 000000 SECLMT 001424 swO9 = 001000 
PACK 1320 PWRVEC= 000024 RMCS2 = 000010 ECOND 001350 Swi = 2 
 PACKSN 077270 QCNT 045446 RMCS3 = 000052 EK = 000105 S$wW10 = 002000 
| : 10 QDRVO 045540 DA = 000006 SEEKFG 040116 SW11 = 000 
' PARENT 030700 QDRV1 045560 RMDB = 000022 SELDRV= 000145 SW12 = 010000 
| PARER 012072 QDRV2 045600 RMDC = 000034 SETFMT= 000143 SW13 = 020000 
| PARLST 077360 QDRV3 045620 RMDS = 000012 SETVEC 005440 SW14 = 040000 
| PARI 077524 QDRV4 045640 RMDT = 000026 SET.1E 045374 Sw15 = 100000 
' PARIO 077634 QDRVS 045660 RMEC1 = 000044 SHDTYP 023664 SW2 = 000004 
' PARTI 077644 QDRV6 045700 EC2 = 00004 SIZE70 004744 SW = 600010 
| PARIG 077654 QDRV7 045720 RMERRS 040016 SIZMEM 005112 Sw4 = 000020 
| PARIS 077 QINPT 045456 RMER1 = 00001 SKI = 040000 SWS = 000040 
| PARI6 077674 QOUTPT 045476 R2 = 000042 SKIER 012450 SW6 436 =_: 000100 
| PAR1I9 077704 QSTART 045516 R = 00003 SLASH 077464 SW7 Ss = 000 
| PAR? 077534 QSTOP 045520 RMINIT 040166 SPOTCK 020714 SWB = 0004 
PAR2O0 077714 QTERM = 045740 A = 000020 SRCHWT 040100 w9 = 001 
PAR21 677724 QUES 075613 RMMR1 = 000024 STA 005730 SYSTAT 076026 
PAR3 077544 RANCYL 017654 RMMR2 = 000040 STACK = 001100 073776 
PARG 077554 RANDOM 1474 = 000032 TART 003634 TAB 075623 
PAR5 077564 RANDWC 001462 RMR = 000004 START1 003644 ABLE 07 
PAR6 77574 RANPAT 02007 RMSN = 000030 START2 3662 TABLEO 077754 
PAR7 77604 RANSEC 017744 RMTMR 044254 STAR3O 076124 TABLE1 100022 
PARB 077614 RANSIZ 020000 RMVEC 040156 TARS 076155 TABLE2 100070 
PARS 77624 RANTRK 017710 RMWC = 000002 STATIN 001316 TABLES 100136 
PASSES 001456 RANXIT 020112 RMOS 040714 STATIS 016232 TABLES 100204 
PAT = 20 RATIO 001464 RNOP = 101 STATPR 023550 TABLES 100252 
PATTER 001460 RDCHR = 104410 RTC = 000117 STKLMT= 177774 TABLE6 100320 
PCLOCK 001310 RDDAT = 000171 RINCTR 015624 STNDAT 002426 TABLE7 100366 
PERIOD 076477 RDHD = 00017 RTURN 031636 STO 6344 TAB. X¥= 001114 
PFECH 035306 RDLIN = 104411 R6 = STO1 4400 = 
PFECH1 035316 RDY = 0002 7 = STO2 04646474 TBITVE= 000014 
PFECH2 0354 RD.ADR 044712 S 074 STO3 044524 TD 042656 
PFECH3 035432 RD.RM 4 SAT 037 STO5 044550 THE 017572 
PFECH4 035442 RD.RM1 044710 SAVEFG 040114 STO6 044556 THEAD1 017614 
PFTSIN 035446 RD.RM2 045030 SAVER1 001360 STO7 1 TIMER 01 
PGE = 002000 RD.RM3 045034 R5 001362 STOB 044644 TKVEC = 
PGM = 001000 RD.RM4 045040 SAVREG= 104412 STO9 044654 TPVEC = 
PIP =0 RD.WRD 04471 C 043120 SUMARY 023636 TRAPVE= 000034 
PIRQ = 177772 READDR 023216 SCMND 026436 SUMHD 076164 RE = 
= 000240 READHD 016012 SCOPE = 000004 SUPRS 032150 TRFER 012350 
046134 READIN= 000121 $C04 = 000400 SUPRSL 032134 TRKLMT 001426 
011672 RECAL = 000107 SC1 = 000100 SUPR1 032162 TRNSWT 040076 
7150 RECALT 015650 SC10 = 001000 SUPR2 032224 TRIVEC= 000014 
015352 RECALO 015740 $(11 043736 SVRH70 045230 TST1 003652 
7576 REDAPK 026540 $(12 044046 SwWR 001154 TYLIST 030520 
PRO = RELBUF 016536 $(13 044116 SWREG 176 032472 
= RELSE = 113 SC2. = 000200 SWTIM 007474 TYPACK 032522 
= 0001 REPHD 076063 $C20 = 002000 - SwO = 000001 TYPCK 32526 
= 000140 REPLZ 2340 $¢3 043164 swoO = 000001 TYPDS = 104405 
= 000200 RESREG= 104413 S04 043170 SwO1 = 000002 TYPE = 104401 
= 000240 RESVEC= 010 Sc5 043202 SWwO2 = 000004 TYPMBA 032476 
= 000300 RETRY 001330 SC6 043366 SwO3 = 000010 TYPOC = 104402 
= 000340 RHEXT 040162 SC6A 043502 sw04 = 000020 TYPON = 104 
= 177776 RMADR 040154 SC7 04362 sw0O5 = 000040 TYPOS “= 104403 
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CZ7RMUBO RMO5/3/2 PERF EXER 
SYMBOL TABLE 


TYPRIS 


032444 


$H 
$HIBTS 
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000006 


00 
001100 


~ 


$PATTC= 
$POSiT= 


838 
aud 
wb ot ee AIT 


SoogSSSSS588 


0 


ooo 
oooo 
OoOo——NOOoNn 


So 


00 


1 
0 
1 
0) 
000 


‘ 


$POWER 037620 $SOFT = 000074 
$PREVA= 000032 $SSEC = 000022 
$PREVO= 000027 STUP = 177777 
$PSEL = 000003 $SUPRL 032234 
$PSNL = 000140 $SUPRS 032250 
$PSNM = 000142 $SUPR1 032262 
$PWRAD 037604 $SUPR2 032324 
SPWRDN 037436 $SVPC = 000210 
SPWRMG 037600 $SWR = 122000 
$PWRUP 037510 $SWREG 001230 
$QUES 001202 $TATUS= 000016 
$RAND 036724 ERM = 000032 
RDCHR 034070 STESIN 001212 
$RDLIN 034160 IME 024750 
$RDOFL= 000064 TkB 1162 
$RDSZ = 000017 $TKCNT 033210 
READ = 000066 STKINT 033226 
$REG = 000014 $TKQEN= 033225 
SRESRE 037064 $TKQIN 033212 
SRETRY 016104 TKQOU 033214 
$RHEXT= 000001 $TKOSR 033216 
$RMADR 001272 $TKS 1160 
$RMAS = 002154 STKSRV 033276 
$RMBA = 002142 $TMPO 001174 
SRMBAE= 002206 $IN = 
SRMCS1= 002136 $T 037232 
$RMCS2= 002146 $TOTAL= 000072 
$RMCS3= 002210 $TPB 11 
$RMDA = 002144 STPFLG 001173 
$RMDB = 0021 STPS 901164 
$RMDC = 002172 $TRAP_ 037730 
SRMDS = 002150 $TRAP2 037752 
$RMDT = 0021 $TRK = 000011 
$RMECI1= 002202 $TRP = 000015 
$RMEC2= 0022 STRPAD 037764 
$RMERI= 002152 $TSTM 001104 
SRMER2= 002200 STSTNM 001116 
$RMHR = 002174 STTYIN 034414 
$RMLA = 002156 $TYPDS 036232 
SRMMRI= 002162 $TYPE 035450 
SRMMR2= 002176 $TYPEC 035662 
$RMOF = 00217 STYPEX 036002 
$RMSN = 0021 $TYPOC 036030 
SRMVEC 001274 $TYPON 036044 
SRMWC = 002140 $TYPUS 036004 
$RMO2 07604 SUNIT 001220 
$RMO3 076051 SUNITM 001110 
$RMO05 076056 SUSWR 001232 
$RTNAD 03163 $VECT1 001256 
$SAVRE 037026 $VECT2 001260 
$SAVR6 037614 SWCNT = 000004 
SB2D 033130 $WRDL = 000020 
$SB20 033160 TN= 000060 
$SEC = 000010 $WTOFL= 000056 
$SETUP= 000156 $XOFF = 000023 
$SIZE 100434 $XON = 000021 
$SkI_ = 000100 $$GET4= 000000 
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SEQ 0217 
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SYMBOL TABLE 
SOFILL 036227 .$X = 001100 
. ABS. 102072 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 62464 WORDS ( 244 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
C7RMUB.BIC,CZ7RMUB/C=CZRMUB.DOC ,CZRMUB, SYSMAC/M 


eee i a ee ee ees —_ 


SEQ 02165 


CZRMUBO RMO5/3/2 PERF EXER 


- CROSS REFERENCE TABLE (CREF VO1-05 ) 


eet ee 


6-04 


35-14 
45-14 


5-84 
47-1 


47-14 
47-1# 
47-14 
9-30* 
41-1 
9-71 


31-36 
22-10 
11-134* 


925 


45-1* 


9-76 
9-73 
32-18 


41-1 
12-704 


rt 
13-461* 


22-422 
46-14 
35-1* 
22-291 
35-14 


45-1% 


9-163 


32-95 
41-1 
13-10 


13-90 


14-181 
24-107 


36-11 


9-178 


41-14 


13-254 
9-43 


2 
13-463* 


22-271 
11-39 


36-394 


10-12 


13-350 


24-126 


55-254 


44~] 


11-82 


47~1 


= 
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23-66 


47~1 


29-58 


14-111 


29-76 


14-153 


32-11 


22-102 


35-1 


22-252 


35-1 


22-259 


SEQ 0219 


41-1 


55-94 


- CZRMUBO RMOS/3/2 PERF EXER 


35-14 
35-14 


5-8 


M 1 
MACRO V04.00 4-APR-81 01:42:25 PAGE S=2 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


42-1 
42-1 
42-1 
54-832 


11-146* 


35-14 

53-1 

25-17 
4-56 


48-1 
14-108 


52-14 
41-1 


6-04 


30-25* 
4/7-1* 
24-156 


42-1 
42-1 


42=-1* 
4-:18 


11-147 


47-1* 
44-1 


9-103 
55-7 
25-17% 
48-1 
14-112 
41-1 


42-1 
41-1 


48-1 


9-19 


39-62 
47-1 
25-19 


42-1* 


54-;77 


55-394 
47-18 


9-103* 
55-8 


55-354 


48-14 
15-47* 


48-1 


9-25 


55-724 
25-19% 


42~1% 


54-=8' 


9-103* 
55-9 


48-1* 
20-43% 


48-14 


9-30 


55-76 
55-374 


43-1 43~1 


9-103" 9-103" 10-32« 
55-10 55-11 55-12 


55-404 

42-1 = 42-1" = 43-1 
44-1 44~1 

48-1* 

42-1 44-1 


29-22 
55-13 


29-6/7* 


55-14 


55-504 
55-18 


eee eee ee eee ee 


SEQ 0220 


CZ7RMUBO RMOS/3/2 PERF EXER 


CROSS REFERENCE TABLE (CREF VO1-05 > 


5 
7-04 


-84 
9-735* 


47-1" 
47-1 


13-417* 
54-757* 
20-11* 
39-87 
9-150* 
52-14 
41-1 


17-76 
53-1 


53-1 
24-113 
14-31% 


55-112 
55-112 


60-214 
9-85 


47-1* 


29-356* 
24-125 


14-181 


55-244 
20-12* 


39-92 
9-150* 


41-1 
48-14 


55-314 
22-399 
55-112 
12-403 
22-88 

55-112 


9-113 


4?=1% 


20-25 
55-484 
15-65* 


17-46 


45-1* 


16-30 


15-64% 
35-1" 
35-1% 


29-37% 
55-284 


15-21% 
20-30 


55-634 
9-150* 
41-1 


24-117 
55-112 


42-1 


55=444 
29-18 
55-464 


* 


Or % 


Wr! 
VIN 
—d —d f\) 
orn 


20-15% 
54-755* 


55-68 
9-150* 


42-1 


55-112 


12-509 
54-164 


63-21 
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55-45 
55-494 


35-214 
35-1* 


20-16* 
55~224 


9-150* 


44-1 


55-112 


12-584 
54-195 


63-43 


55-46 


20-19* 


31-72 


44-1 


55~112 


12-61 


54-<16 


55-47 


20-20* 


31-75* 


55-112 


12-634 
55-96 


55-48 55-49 55-50 

20-21* 22-210 22-214 
31-104* 39-79 39-83 

55-112 55-112 55-112 
13-4834 15-501 

55-112 55-112 55-112 


SEQ 0°21 


55-54 


| 
55-112 | 
| 


55-112 | 


| CZ2RMUBO krM05/5/2 PERF EXER MACRO VUG6.U0 GPAPRWG! VIiGeicd PAGE 374 
CROSS REFERENCE TABLE (CREF V01-05 ) SEQ 0222 
| $RMAS 55-834 58-7 
| SAMBA 12-705 13-261 13-275 13-297 13-335 13=374 «14-9 = 22103) = 22153 «22-258 = 22=269* 922-275" 22-278% 22-279 
55-974 58-10 
$RMCS1 12-6 12-8 12-681 13-407 15-20 20-11 22-40 54-755 55-764 55-77 55-78 55-79 55-80 55-81 
55 55-83 55- 55-85 55-86 -87 “88 55-89 55-90 55-91 55-92 55-93 55-94 55-95 
55-97 53-98 55-112 95-112 55-112 5-112 5-112 55=112 55-112 55-112 5B 6 
SRMCS2 12-127 12-301 12-580 12-683 95-BOH 58-6 
SRMCS3. 22-276 29-25. «S$5-98H «55-112 55-112 §5*112 55-112 55=112 554112 55-112 55-112 58-10 
15-23 16-23 22-186 22-241 23-19 23-20 55-798 58-7 
SRMDB 22-285 55-854 58-7 
SRMDC 12-424 15-26 16-24 22-190 22-229 23-21 55-90H 58-8 
SRMDS 12-10 12-131 12-169 55-814 58-6 
SRMDT 55-878 58-7 
$RMEC1 12-194 12-196 13- 22-316 55-94" 58-6 
SRMEC2 12-198 13-279 22-320 55-95# 58-6 
SRMERI 12-123 12-135 12-139 = -12=143)—S 12-147.) 12-151 12-155. 12-159: 12=163 12-167) 12-173. 12-177, 12-223 :12-239 
12=241 12-281 12-310 12-323 12-325 12-376 129414 12-685 13-494 13-497 55-824 58-6 
SRMER2 12-181 12-183 3 12-640 12-687 55- 58-6 
55-914 58-8 
SRMLA 55 58-7 
SRMMRI 55 58-7 
SRMMR2 55-92" 58-6 
SRMOF 55-89" 58-8 
SRMSN 30-14 55-88% 58-8 
SRMVEC 7-0  (9-70* 9-86 63-32 
1Z-700 13-12 13-262 13-337 22-100 22-156 22-287 55-77" 58-7 
SRTNAD 35-14 
SSAVR6 52-1 S2-1# 52-1 S2=1* S218 
SSAVRE 49-18 53-1 53-1 
$SB2D 13-271 22-466 264-91 26-16 26-19 26-24 32-101 32-107 32-115 40-124e 
$SB20 22-450 39-85 39-88 39-93 40-1414 
SEC 15-17 13-419 13-460" 15-21 15-23 15-26 15-298 15-39 20-16 20-36* «=. 22-175. 29-112" 31-41" 31-52 


SSETUP “4-261 4-261 4-261 261 261-2618 4=2618 4-261 = 4-261) 4-2618 «94-2618 «09-25 9-25 9-25 
9- 925 9 9- 9- 9-25 92592530 30 80s 35-1 35-1 
41-1 41-1 41-1 41-1 41-1 42-1 42-1 62-1 42-1 : 


55-344 
$SSEC 13-23 13-28 13-29 13-248 135-342 15-49% 


20-38 20-41% 22-290 29-41" 29-45% 55-198 

$STUP aie 4-261 4-261 4-261 4-261 4~2618 4-261 4-2618 4-2618 4-261 44-2618 44-2618 4-261 4-2614 
SSUPR1 19 38-244 
SSUPR2 38-18* 23* - 38-35* 38-374 

13-272 22-394 22-402 22-423 22-467 38-164 
SSUPRS 38-214 
SSVPC 5-5 5-54 3 

4 4-56 4-57 4-57 4-57 4-57 4-57 4-57 4-57 4-57 6-0 9-19 


~464 6-0 6-0 
9-25 35-1 35-1 35-1 35-1 35-1 42-1 42-1 42-1 42-1 42-1 42-1 42-1 42-1 


SSWREG 6-0f 9-25 
STATUS 11-167 12-4 12-24 12-31 12-33 
13-412 


STERM 
STESTN 6-04 9-19* 35-4* 43-1 43-1 
STIME 22-18 24-69 26-44 27-16 42-1 


2-35 12-37 12-39 12-41 12-119 = 12-237 12-234) 12-251) 12-3514 
4-7 22-97 22-249 29-18 31~49 54-754" 55-144 58-8 





- 
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| CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0223 
| STKB 6-0# 27-78 8 41-1 41-1 41-1 41=1 41-1 41=1 41=1 44~1 44~1 
| STKCNT 41-1 41-1 41-14 4 1=1e® 4 im1e 4 Ie1® 4168 

27-17 = 35-5 41=1 41=1 41-18 

4i-1# = 41-9 

ES) ee SC SS SO t Ce 2 41-118 

41-18 = Glmte Gta Te 4118 

41-1 41-14 = 41-11 

41-1 41=1 41=1 41=1 41-1 7 Oe ood a oe dc © od 


44-1 44-1 
44-1 44-1 
22-170 29=111% 31-40* 55-114 

~ 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-7 53-1 
53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 
53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 
53-14 53-14 53-14 53-14 53-14 53-14 53-14 53-14 53-14 53-14 53-14 53-1lf 
53-2 53-2 53-24 
53-3 | 
42-1 42-1 
41-1 41-1 41-1 41-14 
53-1. 


55-84 

8 1 14-62* 14-154 15-42" 15-43" 15-45" 15-46 

20-42 20-43. 22-99 22-255 $65" 29-38 55-184 55-19 55-20 55-21 55-22 55-235 
55-29 55~31 55-32 55-33 55-34 55-35 55-36 55-37 


55-4 
44-21% 22-391 26-106 55-308 
24-102 55-29# 


44-1 
9-135 


9-135 
6-0 








AR Ee Oe LR mem 


| D 2 

| CZRMUBO RMOS/3/2 PERF EXER MACRO V04.00 4=APR=81 01:42:23 PAGE S=6 

| CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0224 
ACDW1 6-0 6-0 

| ACDW2 6-0 6-0 

| ACK 4-246# 

| ACPUOP 6-0 6-0 

| ACTDRV 54-934  54-347- 54-398 


* 54-691* 54=-699* 54-986 
| ACTSTR 54-99% 54-98% 54-:02* 
ADDWO -0 


47-1 47-14 


27-1404 


me me ee ee ee eee 








ER ce nese semithin 


~~ ee — 


. é 
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CROSS REFERENCE TABLE (CREF V0O1-05 ) SEQ 0225 
ASKPAR 9-180 61-174 
ASMBL Y 7-0 
ASNERR 27-119 27-137 27=171 27-181 28-22 28-38 34-74 
ASNLST 7-04 11-71% 11-80 11-189 24-8 24-27 7-24 27-112% 272115 27#127% 27-130 27-140 28-10 28-12* 
28-28 28-34* - 28-44% 34-22% 35-1 5-1 35-1 
ASNMSG 27-107% 27=113% 27=122% 27=128% 27=170* 27=-176% 27-178% 27-180* 28-21% 28-37" 34-124 
ASSIGN 27-854 28-5 8-55 28-60 28-66 
ASWREG 6-0 6-0 
ATO 4-1678 
AT1 4~-1684 
AT2 4-1698 
AT3 4-1 
ATS 4-1714 
ATS 4-172a 
AT6 4-1738 
AT7 46-1744 
ATA 4-1418 
ATABIT 11-71 24-27 27-112 4 «=27-115 3S 27-127 )=—s 27-130 03s 27-140 )3=—s_ 2B 10 28-12 28-13 28-32 28-34 34-22 34-25 
35-1 35-1 35-1 54-1454 54-318 54-410 54-515 54-895 54-923 54-931 54-932 56-954 54-:51 
ATESIN 6-0 6-0 : 
ATTN 7-08 42-1* 58-1 58-2 
AUNIT 6-0 6-0 


AUSWR 6-0 6-0 
AUTLST 11-72% 28-13" 34-23" 35-1 35-1 35=-1* 35-1* 35-94 
AVAIL 7-O# yo y Ss y 11-69 11-119 «=17"122 0 «11-157 )—S—«11=177 


AVECT1 4-259% 6 6 
AVECT2 -0 6 
BADBiK 31-68 61-13 


7-O# 
BADENT 9-193 27-101 32-77 33-26 60-454 
BADSEC /7-O# 11-173* 21-48* 22-68 25-16: 25-17 25-18 25-19 25-20 


BITOS 4-74 4-748 12-119 12-507 54-849 54=;71 


86 
BIT06 4-74 4-748 12-222 12-223 12-310 12-325 14-7 22-249 3827-79 54-328 54-381 54-454 54-734 54-<42 
BITO7 4-74 4-744 12-24 12-143 14-7 54-328 54-590 54-711 54-849 54-865 54-885 54-927  54-<05 


BITO9 4-74 4-744. 12-37 42- 54~-: 39 
BIT! 4-744 
BIT10 4-744 12-35 12-159 12-169 - 54-657 


42-1 
BIT11 4-744 12-33 12-163 22-276 54-281 54-417 54-618 54-972 
BIT12 4-748 9-157 - 12-31 12-173 = 12-222. 12-223) 12-241 3 22-237 = 554-275 = 54-309 §= 554-328 «= 54-392 54-425 = 54-608 


S4-: hus 
BIT13 4-74# 9-137 12-147 12-480 12-580 39-103 42-1. 54-375 54-820 54-314 
BITIG 4-764 12-8 12-10 12-39 12-123 12-127 12-131 12-181 12-301 12-630 912-632. 12-640 9 54-387 54-422 


B1T15 4-748 12-6 12-183 12-352 12-281 12-323 12-580 54-375 9 fg 54-390 54-392 54-422 54-425 54-618 


54-655 54-657 564-734 54-849 54-865 54-875 54-885 54-965 54-:75 54-:85 
BIT2 4-748 12-41 54-:83 


LEC ELLE ELE LLL LLL I LL LE LL AL ELL OL LLL et Ne ee a i i A le et i i mG a mm me mm “ 


CZ7RMUBO RMO5/3/2 PERF EXER 


LL EL te test 
@ 
aed 
4 
oo 


12-151 


, 2 
MACRO V04.00 4-APR=-81 01:42:25 PAGE S=8 
CROSS REFERENCE TABLE (CREF VOQ1-05 ) 


13-490 
12-382 


24-25 
22-74 
12-666 
22-172 


22-188 


9-158* 
14-114 


40-814 


26-4 


12-420 
27-165 
24-77 

13-175 
22-307 


9-1 59* 
14-115 


11-3 
63-208 
29-60 


54-501 
54-715 


22-507 


9-161* 
14-1288 


54-510 
54-910 


ES EN Se EE Le eee 


9-162" 


27-16% 


54-514 
§4-<15 


13=26* 


54-526 


13-29" 


13-315 
63-25 


9-166 


27-86* 
63-15* 


54-533 


13-88 


27-91 


54-539 


13-92 


13-324 


14-48 


32-15* 


54-543 


135+95* 


SEQ 0226 


13-324 


14-50 


32-36 


54-557 


13-122" 


13-373 


14-648 


22-121 


54-565 


eee een 


G2 
— CZRMUBO RMO5/3/2 PERF EXER = V04.00 4=-APR=81 01:42:25 PAGE S=9 
CROSS REFERENCE TABLE (CREF VOQ1-05 ) SEQ 0227 


CMPLMT /7=O# 12-676 13-18 


CMPRES 11-44 11-110 »=611-159 11-181) 21-74 21-10 

CMPRT 153-48 13-66 13-76 13-86 13-1314 

CMPRX 15-45 13-89 13=94 13-112 13-123 13-1264 

CMSEC 7-O# 13-17% 13-99% 13-100 13-102* 

CMSTR 13-20 7 

CMSTR2 13-39 13-42 13-474 13-118 13-121 

CMTRK 7-O# 13-103* 13-104 13-106* 

COLON 26-17 26-22 60-434 

COMMA 24-87 32-106 32-114 60-54 

COMTBL 7-O# 20-27 

CPSAVE 42-1 42-1 42-1 42-1 42-1 42-18 42-1* 42-1* 43-1 
CR 4-748 44-1 44-] 

CRLF 4-748 9-6 9-30 9-30 9-44 9-55 9-61 24-68 24-101 3264-112 = 2hn1250 24-139 21400441 


44=1 52-3 52-38 —s«S2=7—s«S7=9—(«S57=10-—«S57=1259"46 59947 = 5 9-4B = 59-50 59-52 59-53 59-55 
59-56 59-57 59-58 59-59 = 0-18 «= 60-22 3 60-24 60-25 60-25 60-27 0 60-29 60-31 60-31 60-32 
60-34 34 60-38 60-39 60-40 60-41 60-41 60-42 60-42 60-45 60-46 60-47 60-48 60-50 


CYLIMT 7-Of 13-110 29-69 29-83 29-84 $3.3 5-368" 


32 
CYLNDR 12-422 12-423% 12-424 12-427* 12=462* 22-307 22-307 31-45 55-121 64-454 


DATAO 7-0 7-O# 
DATA 7-0 7-O# 
DATAIO 3 7-0 7-04 
DATAI1 7-0 7-O# 
DATAI2 7-0 7-O# 
DATAIS 7-0 7-0 
DATAIS4 7-0 7-O# 
DATAIS 7-0 7-OF# 
DATA2 7-0 7-04 
DATA3S 7-0 7-0# 
DATA4 7-0 7-OF 
DATAS 7-0 7-O# 
DATA6 7-0 7-0# 
DATA? 7-0 7-04 
DATAS 7-0 7-O# 
DATA 7-0 7-08 — 
DATAPK 27-54 28-594 
DCK 4-1604 


DCKERT 12-2188 12-497 


DH3 8-19 57- 

DH4 8-26 57-44 
8-40 57-54 

DISPLA 9-25* ey 42~1* 

DISPLY 12-49 12-82 12-94 12-105 12-201 12-216 12-237 12-275 12-284 12-305 12-341 12-367 12-389 = 12-433 
12-6459 12-675 12-696 12-502 12-520 12-530 12-539 129557 12-575 12-595 12-607 12-626 12-651 12-656 


CZ7RMUBO RMO5/3/2 PERF EXER 


H 2 
MACRO V04.00 4-APR=81 01:42:23 PAGE S-10 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


54-551* 


54-359 
27-103* 
29-564 
54-752 
27-147 


54-419 
9-253 


9-25 


54-944 
27-153 


MMMMnnwn—— 
Trrirtretenr 
WWI Om 


54-789 


54~225* 
54-552* 


24-82 


mronrnnwn----—- 


54-816 
54-045 


54-645 


29-80 


wi 


4-683 
27-173 


54-226" 
* 


it eee 
MAONM NWO WO0e 


ow ww oe eee 
SUIWwn OS we Oo 


rmrororrnrvn--—_— 


54-662* 


32-13 


54-227* 


54-795 
29-128 


a ta titer eee eine 


'. 
Oo 
Oo 
coco. 


ee 
anNOWNO™N 


COWOUWNM 


ee ets 
WALD Se 


Wrnronrnnnt--— 


54-957« 


54-704* 


54-228* 


54-803 
54-520 


54-:30 
§4-:32 


54-812 


54-238* 


54-818 


54-271* 


Wo 


‘eu 


monnn 
wre 


MMMNMNN---— 


54-847 


54-270* 
54-873* 
54-287* 


—— a 


54-879* 


54-280* 
54-880* 
54-292* 


SEQ 0228 
12-708 13-153 13-158 
15-315 13-315 13-319 
13-369 13-373 #£13-376 
2-64 22-70 22-71 
22-125 3822-151 2e~1 
227-189 = 22-192) 22-202 
227-254 22-257 22-262 
2273519 «=—22-322 02 = 22-328 
227390) =— 22-395) 22-398 
54-:69* 
54-:79* 
54-887* 54-907 54-922« 
54-324 54-330" 54-353 
54-896 54-960 54-:70*« 
54-297* 54-302* 54-588 


pti? 


) 
! 


CZ7RMUBO RMOS5S/3/2 PERF EXER 





22-94 


58-104 
8-34 
58-34 
58-44 
58-54 


12-4934 
54-1598 


11=+14 


13-287* 


a 
| MACRO V04.00 4-APR=81 01:42:23 PAGE S=11 
| CROSS REFERENCE TABLE (CREF vO1-05 ) 


58-28 


13-261" 


13-3274 
13-3284 


13-283* 
13-284* 
13-255* 
13-264* 


13-296* 


54-440 
34-25% 


13-262 


13-265* 
13-297 


54-493« 
35-1* 


13=263* 


—~— 
ve] 

{ 
™m 
Ww 
co 

* 


13-266* 
135-301* 


54-657* 


13-281" 


3 
13=267* 
13-304 


54-664 


13-2748 
13-307* 


oe i eee 


54-666* 54-677* 54-694 
13-275 135-287 13-289 
13-308* 13-317 13-324 


54-705" 


13-290 
13-324 


SEQ 0229 


54-:35 


15-291* 


54-:47+ 


135-295 


| ee 
CZ7RMUBO RMO5/3/2 PERF EXER MACRO V04.00 4-APR-81 01:42:25 PAGE S-12 


CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 9230 

56-3 

12-656 56-344 

56-35 

56- 

56-374 

56-74 

56-384 

56-394 

56-84 

56-404 

54-682 54-735 54-:84 54-=194 

9-25* 9-25 

13-1864 

10-4* 10-5* 10-9» 10=-10* 35-1 35-1 

35-1 61-9 
60-274 

9-159 64-474 

35-1 5-1 
60-294 
60-424 
60-404 
60-414 

9-1964 

35-14 

35-1 35-1 35-1 35-1 35-14 

13-9* 13-47* 3-62 13-75* 13-188 13-191 

12-304 12-238 #£«13-508 

12-9 12-11 12-244 

9-25 9-25 9-25 9-27 9-28 9-111 9-112* 9-138 23-40 23-41% 23-546" 23-71" 42-1 
42-1* 62-1 62-1 62-1* 62-1* 62-18 62-1* 

14-10* 14-12% 14-18 14-26 14-28 14-354 

12 

12-704 

11-136 14-1504 

39-15 39-36* 39-394 

26-20 26-25 39-114  %39-B9 

12-5 

12-270* 12-272 12-648 12-674* 12-675* 15-6% 13-78 13-133 4 13+149 13-161" 13-186 
12-251 13-3935* 135-394*% 13-396 13=428* 15-430 13-432 13-443" 13-444" 13-446 13-459 13-460" 13-4618 
13-463* 15-464* 15-466 13-468 27-142" 31-38 31-39% 31-40" 31-418 31-42 31-43 31-47 31-49 
bt 31-66 31-82 31-84* 55-1164 

12-420 55-125 55-1284 

27-152 = 351-3354 

11-133 14-454 

27-151 30-104 








RMO5/3/2 PERF EXER 
ROSS REFERENCE TABLE (CREF V01-05 ) 


Sova 
GETLMT 13-53 
GETPAT 15-58 
GETREG 4-2484 
GETREM 16-12 
GETREQ 54-412 
GNS 5-1 
24-139 
53-1 
53-2 
GO 4-1214 
| GODRIV 11-103 
GTSWR 30 
HCE 4-1528 
HCEER 12-428 
HCI - 
HCRC 4-15 
HCRCER 12-137 
7-04 
HT 4-744 
al -04 
IAE 4-1554 
IAEER 12-161 
IBSAVE 42-1 
IDLE 11-7 
IE 4-804 
ILF 4-1454 
ILR 4-1464 
INC 12-255 
INCMIS 12-464 
INCSKI 12-599 
INC 12-262 
INCTOT 12-53 
12-444 
13-194 
7-04 
27-75 
4-744 
4-1034 
54-2350 
aaa 
11-8 
27-124 
4-22 
4-1 
4-744 
7-GA4 
13-268 
13-273 
13-327 
13-310 
13-358 
13-369 
13-355 
22-39 
22-45 


22-71 


15=14 
17-61 


17-8 
74-950 
24-140 
53-1 
53-2 
11-139 
53-14 


12-5194 
42-1 
11-116 


25-174 


54-6914 


27-104 


K 2 
MACRO V04.00 4-APR=81 01:42:23 PAGE S=13 


16-7 
17-684 


17-19 
54-723 


9-6 
24-145 
53-1 


12-2350 


12-378 
11-86* 


27-11 


44-1 
13-18* 


25-14 
17-77 


29-66 


17-40 
a 


60-22 
13-164 


29-1224 


17-73 
54-909 
9-55 
24-152 

53-1 


14-1734 


42-14 


26-52 


60-50 


13-166* 


31-34 


42-18 


12-236 
12-550 


26-52 


42-18 


12-256 
12-568 


26-55% 


$4-:72  54=:80 
24-89 24-101 
53-1 53-1 
53-1 63-1 
42-18 

12-274 12-289 
12-579 12-598 
52-14" 52-17 


54-=554 


24-104 
53-1 
53-1 


12-330 
12-611 


61-4 


24-112 
53-1 
53-1 


12-352 
12-629 


24-115 
53-1 
53-1 


12-370 
12-694 


SEQ 023) 


24-124 
53-1 
53-1 


12-400 
12-712 


L 2 
RMOS/3/2 PERF EXER MACRO VO04.00 4=APR=81 01:42:25 PAGE S-14 


| CZRMUBO : 
CROSS REFERENCE TABLE (CREF V0O1-05 ) SEG 0232 

LIN3S.1 22-126 22-132 22-2004 

LIN3.3 22-137 22-144 22-2254 

LINS.4 22-145 22-2354 

LIN6.1 22-336 22-342 22-3584 

LIN6.2 22-348 22-354 22-3678 

LIN7M 22-42 59-334 


22-439 3659-444 


59-284 


22-166 22-171 = 22-176 «= 22-201 Ss 22-206) §=— 22208 )3=— 22-211 22-215 22-2190 22-227 = 22-230 22-2358 

22-294 2-369 $$-s00 22-389 3=— 22-397 = 22-426 = 22-429 22-4658 
12-93 12-104 12-200 a} +3 83 -299 12-340 12-366 12-388 12-432 12-458 12-474. 
12-519 12-529 12-538 12-556 12-574 ~594 12-606 12-625 12-650 12-689 12-707 15-152. 


12-95 12-108 12-202 12-218 12-288 12-309 12-342 12-368 12-390 12-4634 12-460 12-476_ 
12-531 12-540 = 12-558 = 12-576 12-596 12-608 12-627 12-652 12-691 12-709 13-154 22-354 


12-96 inte 12~219 12-288 12-309 12-343 12-369 12-391) §=912-435) 12-477) —12-541— 12-559 
13-155 22-1314 


12-97 12-108 12-220 12-288 12-309 12-344 12-392 12-436 12-478 12-505 12-542 12-560 
12-654 12-693 12-711 15-156 22-108 22-2498 


684 
12-442 12-462 12-549 12-567 22-3014 


12-318 12-327 12357 13-792 er ¥ 12-484 12-511 12-586 2-617 12-636 22-5478 

12-295 12-360 12-408 12-4 ¢ 1 “39 12-514 = 1 =388 12-620 12-638 22-3534 

12-99 12-110 12-210 19782 16-6 6 12-331 12-35 12-361 =. 12-371) 12-406) = 12-409 12-450 
12-488 12-512 12-524 12-533 122551 12-569 12-589 12-618 12-639 %2-695 12-713) 15-195 





Se re eS EE EE EEE ES RE RR ee enema - i 


| M 2 
' CZRMUBO RMOS/3/2 PERF EXER MACRO V04.00 4=-APR=81 01:42:23 PAGE S=-15 








CROSS REFERENCE TABLE (CREF V01-05 ) SEQ 0233 
13-504 22-3844 
~466 12-600 22-4194 
12-254 12-329 13-503 22-4594 
22-228 59-104 
22-319 59-274 
22-315 59-264 
22-347 59-304 
22-125 59-44 
22-251 59-19% 
15-686 3-666 12-666 12-666 \¢ 666 ¢ $06 6 1¢ $68 13-174 13-177 13-180 13-315 135-315 3-3 
- -_ — - = - - ; q 15 
13-324 13-324 13-324 13-360 13-363 13- 1 373 15-378 22-114 229154 22-157 22-187 22-191 22-255 
22-283 22-286 22-307 22-307 22-317 33-351 22-4494 
22-209 59-84 
22-293 59-244 
22-370 59-314 
22-164 22-225 59-94 
22-254 59- 
22-302 59-254 
22-173 59-184 
22-168 59-174 
22-239 59-124 
22-353 59-32 
22-155 59-164 
22-257 59-214 
22-308 59-64 
99-1744 
9-245 27-113 27-128 60-174 
11-131 
4-22 
7-O# 9-152* 9-155 9-156 
32-94 60-524 
36-774 36-98 
36-82 
36- 
36-100 36-1054 
36-75 1 
11-34 11-194 15-67 35-7 
1 11-20 11-494 
11-59 11-794 
11-134 
27-164 32-104 
15-56 1%.Siks 12-239 12-285 12-353% 12-401* 12-445* 12-480* 12-507" 12-583" 12-614* 12-632* 15-492 15-497 
17-3 8-36 19-28 29-69% 29-92 29-95" 55-544 55-55 55-56 55-57 55-58 55-59 55-63 61-54 
Or~he oi 2 61-54 61-54 61-54 61-54 61-54 | 
me pw 1A 19-19 19-33 29-71% 29-104 29-107" 55-584 61-54 61-54 61-54 61-54 61-54 61-54 
pa bw 19-23 19-30 29-70* 29-98 29-101* 55-564 61-54 61-54 61-54 61-54 61-54 61-54 
60-554 
~B54 
54-1574 54-;01 54-;47 
4-1054 
31-94 60-464 


| CZRMUBO RMOS/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


MINSEC 
MINTRK 


31-92 
7-04 





27-178 
27-176 
2-170 


12-247 


13-444 


13-4434 


12-924 
7-04 
7-O# 
7-O# 

22-359 
7-O# 
9-94 


12-4724 
54-4084 


22-51 
9-88 


35-1 


11-53 


11-85* 


54-729 
22-53 


11-5 


~— a —— we 


N 2 
MACRO VO4.00 4-APR=81 01:42:25 PAGE S-16 


17-6 17-9 18-15 18-17 29-72% 2991 
61-54 61-54 61-54 

17-28 17-31 a $ 18-25 18-29 18-33 
61-54 61-54 61-54 61-54 61-54 61-54 
17-17 a 18-18 18-20 18-34 19=21 
61-54 61-54 61-54 61-54 61-54 

26-18 26-39% 26-40 26-42* 52-12% 

60-284 

11-69 11-70" 27=165* 

26-31*  26-33* 

54-936 54-978 

11-104 11-115 11-140 11-164 52-20 


29-96 
19-17 
29-73 


29-110 
29~74% 
29-97 


55-554 
29-103 


29-102* 


ee ee ew ee ee ee a ee —— 


61-54 


29-108* 


29-111 


SEQ 0234 


61-54 
29-112 
55-574 


CZRMUBU RMOD/5/c PERF CACR PALRU VUS.UU GRAPRTWO! VIiEScicod FAVE on is 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0235 
PACK 7-O# 9-99e 15-63" 27-166 28-49% 28-54% 28-59% 28-65" 

Aiba 60-544 


7 33-84 
12-153 12-5014 
9-169 1 61-34 
35-1 61-5 
4-1014 


13-219 17-69 17-71 61-6 3 
24-94 26-103 24-109 26-114 24=120 26-128 = 2-142 26-145 26-1468 = 24-151 24-158 939-65 = 60-374 


43-1 43-14 43-1* 


54-421 54-472 54-589 54-891 54-926 54-970 54-=70# 


12-221 12-258 12-612 15-3334 
12-42 # 


9-93 27-138 27-80% 35-1* «39443 39444" 39+105* 52-15* 54-213 54-214" 54-243" 54-2518 
54-345  54-346* 54-399% 54-409 54-4578 . 








_ - -— — So 


¢ 3 
RMO5/3/2 PERF EXER a V04.00 4-APR=81 01:42:25 PAGE S-18 


— CZRMUBO 
CROSS REFERENCE TABLE (CREF v0O1-05 ) SEQ 0236 
| PWRFLG 9-174 9-212 9=216* “S-]: a5-98 
| PWRVEC 4-74@ 9-25" 9=-25* Seni S2-1* S2-1* 52-1 52-1* 
| QCNT 54-<5 54-<95 =s- 54==19% oon 34 54-=36* 54-256 54-=70* 
QDR ~<60 54-<67 54=-<7 54-<864 


* 
* 54-=75 S4==77« 


QUES -8 

R6 4-748 9-25 9-25* 9-25* 
R7 4-748 

RANCYL 16-29 17-34 

RANDOM 7 16-28 61-12 

RANDWC 7 17-37 61-7 


RATIO 7-O#  10-8* 16-15 61-8 
RD.RM 54-283 54-313 54-31 54-537 54-561 54-575 56-713 54-767 54-841 54-851 54-867 54-:22 54-:018 54-754. 


, 54-:17 54=-; 
é 54-:074 54-:08 58-3 58-4 
RDCHR 41-1 53-14 
RDDAT 44-2554 7-0 15-54 20-32 31-43 
RDHD 4-2564 7-0 13-463 
RDLIN 9-181 27-20 27-89 32-34 33-19 53-14 63-26 63-37 
RDY 4-814 


READDR 12-338 12-380 12-418 13-414 20-18 21-24 22-200 23-144 
READHD 12-339 12-381 12-419 13-4594 


13-4284 
RECALT 12-467 12-601 12-643 13-4064 


REPHD 11-191 60-224 
REPLZ 24-92 39-134 
RESREG 56-40 27-77 36-49 50-1 51-1 535-14 54-252 54-393 54-396 54-458 54-686 54-698 54-:013 54-<24 


RETRY 7-04 12-204* 12-227* 12-243" 12-2 
12-402* 12-446* 12-481* 12-508* 12-5 


4c 12-249 * en 280 ean 317" 12-320* 12-327 12-321 12-5548 
82* 12-613* 12-635* 


$487" 15-499 13-+500 22-568 





| 
| 


CZ7RMUBO RMOS/3/2 PERF EXER 


RHE XT 
RMOS 
RMADR 
RMAS 


RMBAE 
RMCS | 
RMCS2 
RMCS3 
A 
RMDB 
RMDC 
RMDS 
RMDT 
RME C1 
RME C2 
RMER1 
RMER2 
RMERRS 
RMINIT 
RMR 1 
RMMR2 
RMOF 
RMR 
RMSN 
RMTMR 
RMVEC 
RMWC 
RTC 
RTNCTR 
o— 
SATPOW 
SAVEFG 
SAVERT 
SAVERS 
SAVREG 
SC 
SCO4 
SC 
SC10 
SC11 
SCI2 
SC13 
SC2 
SC20 
SC3 
SC4 
Sc5 
SC6 
SC6A 


9-109 
13-395 
9-8 


9-118 
13-409 

9~208 
54-:64 
54-318 


54-274* 


54-2124 


54-943 
54-5311 


54-9864 
54-1634 


54-8614 


F. 
MACRO V04.00 4=APR=81 01:42:25 PAGE S=-19 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


9-122 
132455 
54-1624 
54-:96 
54-765 


54~959* 
54-509 


54-500 
54-842 


54-1798 
54-805 
54-538 


54-229 


54-9194 
54-9394 
54-9504 


54-831 


9-12 


5 
54-895* 


54-307 
54-903 
54-273* 
54-953* 
54-525 


54-532 
54-868 


54-320 
54-810 


54-542 


54-231 


54-833 


54-1654 
13-465 
54-352 


63-44 
54-9351" 


54-562 


54-346 


54-884 


s6~<61 
14-175 
54-475 
54-954" 


54-566 


13-1438 


53-14 


54-905 


542096 


54-:50 
$4-491 


54-415 
54-;65 


54-;69 
54-941 


54-212 


54-917 


54=515 


54-476* 
54-;97* 


54-9420 


54-348 


54-957 





54-:20 54;03 


54-576 


54-519* 
54-<38* 


54-587 


54-608 
§4-<43 


58-2 58-2 


54-640 


54-692 


54-;09 


54-604 
54-653 


58-2 


54-989 54-395 


SEQ 0237 
54-;13 54-;27 
54-625 54-774 
54-669  54-680* 


58-2 


54-<94 


rt. 
CZRMUBO RMOS/3/2 PERF EXER MACRO V04.00 4-APR=81 01:42:23 PAGE S=20 
CROSS REFERENCE TABLE (CREF V01-05 ) 


SEQ 0238 





| $C? 54-850 54-864 54-866 54-876 54-8874 
| $c8 54-828 54-843 54-853 54-859 54-869 54-904 54-9074 54-948 
| sc 7-48 28-284 
sc 4-744 
SDETAL 24-29 24-48 24-684 
SEARCH 4-247 
SECLMT -O# 13-100 19-19 23-28 23-35) 29-71 29-87 29-8 29-125" 32-67 
3 i“ 9-97* 11-88% 26-23 26-34% 26-35 26-37% 52-15% 
SEEKFG 54-1254 54-217 54-442 
SELDRV 4-25 
SET.IE 54-246 54-277 54-383 54-456 54-685 54-773 54-<364 
SE TFMT 4-2498 
SETVEC 9-175 9-179 9-186 9-192 9-199 9-2054 
SHDTYP 24-22 24-45 24-584 
SIZE70 9-1 
Z7ME 9-1454 52-24 
I 4-2274 
SKIER 12-187 112-5944 
SLASH 33-18 61-164 
SPOTCK 12-192 12-297 12-336 12-386 12-430 12-472 12-493 21-214 
— — 54-410% 54-515* 54-923 54-932* 
STACK 4-748 9-25 9-92 35-3 
STAR3O 11-193 60-2 
STARS 11-42 28-43 60-244 
START 5-3 9-154 23-70 27-26 
START1 5-1 9-11 9-184 | 
START2 9-16 9-214 
STATIN 7-08 9-87* 11-186 11-188* 26-54* 
STATIS 11-171 14-74 | 
STATPR 11-192 24-74 28-42 | 
STKLMT 4-744 
STNDAT 7-04 13-227 613-233 14-156 
STO 54-996 54-:1 
STO1 54-:304 
STO2 54-:29 54-:31 54-:33 54-:504 
STO3s 54-:52 54-:59% - 
sTos 54-:664 
STO6 54-:54 54-:694 
STO7 54-:56 54-:784 
STO8 54-:76 54-:844 
STO9 5$4-:27 54-:37 564-:48 54-:57 54-:62 54-:64 54-:67 54-:74 54=:82 54-:864 
SUMARY 11-41 24-434 5-1 | 
SUMHD 24-59 60-254 
SUPRT 37-15 37-204 
SUPR2 37-14% 37-19% 37-29 37-31% 37-3354 
24-119 24-127 37-174 
32-116 37-124 39-86 39-94 | 
54-720 54-736 54-800 54-855 54-874 54-930 
27-52 27-62 
12-17 
9=214 11-184 
15-36 34-356 35-1 
22-80 22-150 


ee ee 7 


~ CZRMUBO RMOS5/3/2 PERF EXER 


= 
MACRO V04.00 4=-APR=-81 01:42:23 PAGE S=21 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


24-98 
39-794 


4-744 


22-8 


61-544 


54-7044 


16-354 
54-451* 


41-1* 
9-25 
12-5744 


42=1 
22-404 
13-333 


54-597* 


41-18 
9-25« 


19=23 
54-631 


39-604 
39-784 


22-43) 


9-25" 


41-1 


54-661* 


23-32 
54-656" 


—- - —-- 


9-25* 


22-11 
41-1 
41-1 


54-707* 


29~70 
54-647 


9-25" 


22-80 
41-18 
41-1 


54-836* 


29-85 
54-667* 


9-30 


22-150 
42-1 


54-882« 


9-86 


M4 
54-678* 


9-214 
22-183 
e=1 


54-934" 


9-127" 
4-709 


11-184 
22-406 
42-1 


54-951* 


29-130* 
54-710" 


12-17 
22-431 
421 


54-975 


31-40 
54-:34 


12-74 
27-52 
42-1 


54-992 


32-60 
54-:46* 


SEQ 9239 
13-64 13-168 13-333 
27-62 34-56 35-1 
52-1 52-1* 
54-994" 54-:63* 54-:71* 


CZ7RMUBO RMOS/3/2 PERF EXER 


CROSS REFERENCE TABLE (CREF VO1-05 ? 


 TYPDS 24-102 
TYPE 9-6 
9-238 
) 11-193 
24-68 
| 24-104 
24-148 
27-155 
32-77 
| 34-26 
| 3 
41-1 
| 43-1 
| 63-25 
TYPMBA 39-614 
TYPOC 9-8 
TYPON 53-14 
TYPOS 9-47 
TYPRI4 24-58 
UCPAR 12-34 
ULDFLG 54-1064 
UNIT -O# 
UNS 4-15 
12-121 
UNTASN 27-107 
UNTMSG 11-62 
UNTNCT 28-21 
UNTOFF 9-235 
UNTON 9-247 
UPE 4-1104 
US? 4-974 
US2 4-984 
US4 4-994 
VV 4-1324 
WAIT 7-04 
WATPAK 27-71 
WO.HK 8606. 5544-722 
WCE 4-1114 
WCF 4-150 
WCFER 12-157 
WCHKX 53-5# 
WCKD 4-2518 
WCKER 12-129 
WCKHD 4-2524 
WLE 4-1 
WiEER 12-165 
WRDCNT 7-04 
WRL 4-1374 
WRT.AD 54-;50* 
WRT.R1T 54-:614 
WRT.R2 54-;47* 
WRT.R3 54-;56 
WRT.RG 54-772 
WRT.RS 54-:83 
WRT.RM 54-306 
54-603 
WRT. WD 54-;48* 


24-113 


12-125 
27-122 
12-71 
28-37 
27-180 
60-104 


54-7454 


12-6064 
54-721 


7-0 
12-2814 


54-355 
12-72 


12-6254 


11-93 


54-741 
20-28 


9-168* 
54-;654 


54-;70 


54-482 
54-826 
54~-;59* 


24-144 


54-370* 
22-75 


31-95 


11-95 


54-759 


9-169 
58-4 


54-;76 


54-486 
54-857 
54-;624 


53-14 
12-72 


54-555* 
35-1 


34-9 


11-108 


9-198 


54~;824 


54-490 
54-902 
58=4 


24-150 


54~-629* 
35-1 


34-29 


11-149 


9-200* 


54-499 
:4/78 


54-347 


63-35 
27-156 


54-668* 


35-18 


35-1 


15-40 


54-508 


. 2 
MACRO V04.00 4=APR=81 01:42:25 PAGE S=22 


Lv] 
— Ow 
ww 


tt 
WN WAL —-— 
MAM NOOON 


& & WANN 
wri as OE PD 


31-96 


54-797 


35-1 


17-36 


54-512 


DEO EEE OL LEO COA OE OO FR ES . 
SF EE OE TT me hme 


& OWA 
~~ 
tt 


34-10 


54-892 


60-84 


61-3 


54-526 


34-31 


54-894" 


54-531 


53-14 


35-1 


54-919 


54-541 


9-229 
64 


35-1 


54-921* 


54=555 


SEQ 0240 

9-232 9-235 
11-90 11-191 

) 24-21 
24-101 24-103 
24-145 24-146 
27-88 27-101 
32-33 32-50 
34-9 34-11 
37-32 39-32 
41-1 41-1 
42-1 43-1 
63-19 63-22 
53-14 
54-:45* 
54-565 54-586 


_ CZRMUBO RMOS/3/2 PERF EAER 
_ CROSS REFERENCE TABLE (CREF VO1-05 ) 


| WRTCHK 7-0# 54-744 54-745 61-10 
| WRIDAT 4-253# 7-0 15-57 §4=747 
| WRTHD 42548 
WRTPK 10-34 11-127 15-140 
XXDP 7=O# 9-35" 9-38 9-39 9-418 9=h6 
27-125 
60-368 
7-0" 
ZROIND 7=0# 13-20" 13=74% 13-80% 135-84 


se. 
MACRO V04.00 4=-APR=81 01:42:23 PAGE S23 


9-57 9-24) 


9=2435 10-20 


ee me ne ees - 


10-22 


27-108 


272110 


SEQ 0241 


27-123 


{2 
CZ7RMUBO RMOS/3/2 PERF EXER MACRO V04.00 4=-APR=-81 01:42:25 PAGE M-=1 
CROSS REFERENCE TABLE (CREF VvO1-05 ) SEQ 0242 


SSNE 9-19 
SSSET 53-1 53-1 53-1 55-1 53-1 53-1 53-1 53-1 53-1 53-1 53-1 53-18 53-2 
| SSSETM 9-25 9-254 


. 4-524 52-1 
. 4-528 48-1 
-SREAD 4-498 41-1 
. 4-514 49-1 


-SWRLO 4-494 4-57# 4-58 4-59 4-60 4-62 4-64 4-69 4-71 4-72 
4 25-24 25-16 25-17 25-18 25-19 25-20 


CKDIG 4-208 32-55 32-60 32-67 33-23 


ance 53-74 54-772 54-830 54-832 54-;18 54=;77 


GETSWR 4-744 9-304 
MORETA 5-114 6-0 
T 4-744 
NEWTST 4-744 9-19 
4-74 12-427 12-462 13-145 21-50 22-109 §3=24-33 28-44 29-46 29-1135 29-1351 30-29 31-98 31-107 
32-80 32-128 39-3 46-1 47-1 47-1 48-1 49-1 52-1 =] 


4 7 
PUSH 4-744 12-422 13-138 21-21 22-35 eg 386 22-396 23-40 24-7 28-28 29-10 29-122 30-10 31-335 
31-37 32-10 32-93 46-1 47-1 47-1 47-1 48-1 49-1 52-1 S2-1 


SETTRA 53-1 53-1 53-1 53-1 53-1 53-1 55-1 53-1 535-1 53-1 53-1 53-14 53-2 


i. 3 
CZRMUBO RMO5/3/2 PERF EXER MACRO V04.00 4=-APR=81 01:42:25 PAGE Mee 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0245 


SLASH  4=74# 

~ - - - 5-8 6-0 -0 6-0 9-19 221 22-3 35=1 374 38-4 

STARS = 4=74H@ —5=5 aint a 41-1 42-1 43-3 4g=1 45=1 46-1 47=1 48-1 49-1 50-1 
51-1 52-1 52-1 53-1 54-15  6e= 


| 
| 
| Pt er 
| supsu 4-744 9-25 9-258 


TYPDEC 4-744 oe 26-113 24-147 2491440 24=147 24-150) 551 


TYPOCS 4-744 9-220 11-65 12-72 24-76 27-156 31-96 34-10 34-31 35-1 35-1 


TYPOCT 4-74# 41-1 43-1 43-1 
TYPTXT G-7ae 9-6 9-4 9-55 9-61 24-68 24-89 24-101 3924106 2he112 0 hm 115) = 2123 24-159 24-140 


UPCODE 51-24 
XKEP 34-538 35-1 


Oe OE Eh. re eB ee ee me enn 


